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UTE REQUEST =1384 99:18:38 VAX=11 PL/I my fe He 
1984 15:10: DISKSVMSMASTER: CMONTOR.SRCJREQUEST.PLI;1 (1) 


. 
| 
1 EXECUTE_REQUEST: Procedure Returns(Fixed B Pinary cs) 
¢ Options(Ident('v04 ); 
Pett = a 
5 ‘ 1 JRRRAAAARAAAAARAA RARE AREA ARERR ET EAE EAE ERRREKRERE EEE 
hk /* * 
5 te /* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
tz /* DIGITAL EQUIPMENT CORPORATION, ” MAYNARD. MASSACHUSETTS. * 
16 ; } fe ALL RIGHTS RESERVED. ~ 
; ® 
7. en /* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND oo IED ® 
\¢ o- /* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
7. oo /* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
14; #141 /* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
>) oe /* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
1 : : Ae TRANSFERRED. 
H a 
18: #1 /* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
19: 1 /* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$¢ ; oe CORPORATION. : 
$§ 1 /* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
$7 : ; es SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
; ra 
$2 ' ’ AEE LILA LL LT CLIN IES ERNE NE ROE 
ros /*/ 
oa 
$3 ; 1 /* 
Oi 1 /e++ 
31 : . FACILITY: MONITOR Utility 
; t 
33 ' : a ABSTRACT: EXECUTE_REQUEST Routine. 
5 1 /* Called from MONMAIN routine to execute a single 
a /* MONITOR request. 
rs. /* 
$ mm /* 
ip ' : - ENVIRONMENT: 
41 1 fe Unprivileged user mode 
$§ . im /* except for certain collection routines which 
45: 1 /* run in EXEC or KERNEL mode to access system 
re; : : tn data bases. 
; ® 
74 ‘ ! A AUTHOR: Thomas L. Cafarella, April, 1981 
48: 1 


OPE RemuEST 


49; 1 /* 
? ' : . MODIFIED BY: 
é : 4 /* v03-026 TLC1091 Thomas L. Catarella 08-Aug-1984 15:00 
= /* Save summary butter data for only those classes requested; 
¢ i : in exclude extra classes collected in support of SYSTEM class. 
6 i 4 /* v03-025 TLC1090 Cafarella 02-Aug-1984 15:00 
3 ' : es Eeseast ACCVIOs = OR ye TER and PROCESSES classes. 
§ BB /* v03-024 TLC1086 Thomas L. Cafarella 24-Jul-1984 14:00 
o ' : . Make top summary work for SYSTEM class. 
63 ‘<a /s v03-023 TLC1085 Thomas L. Cafarella 22-Jul-1984 14:00 
o7 : . Calculate scale values ter Free and Modified” list bar graphs. 
65; 1 je vo3-022 1161082 Thomas L. Cafarella 23-Jul-1984 11:00 
66 se /* Always save data in summary buffers, even when only 
a4 i : cs one collection. 
69 : 4 /* v03-021 TLC1072 homas L. Cafarella 17-Apr-1984 11:00 
£0 : : a Add volume name to DISK display. 
72: 1 /e v03-020 TLC1068 Thomas L. Cafarella 13-Apr~1984 14:00 
7 ' : Fix bug causing a garbage heading display. 
753 1 /e v03-019 PRS1019 Paul R. Sen 11-Apr-1984 16:00 
g ' : Fix SYSTEM class 7 SUMMARY ond change SYSTEM default interval. 
78: 1 /e v03-018 TLC1060 Thomas L. Cafarella 12-Mar-1984 11:00 
4 : Make multi-file summary work for homogeneous classes. 
81: 1 /* v03-018 TLC1059 Thomas L. Cafarella 20-Mar-1984 11:00 
Hf a /* When re-recording, include input revision Level 
8 ' : ~ in output file. 
Be 1 /* v03-018 TLC1057 Thomas L. Cafarella 22-Mar-1984 15:00 
36 ‘ : . Eliminate node name from heading for multi-file summary. 
88: 1 /s v03-018 TLC1056 Thomas L. Cafarella 22-Mar-1984 11:00 
4 : ' ad Disable sti classes and exclude class which is disabled. 
91: 1 /e v03-017 PRS1011 aul R 29-Feb-1984 14:00 
4 ' ; Ae add /FLUSH_ INTERVAL RR ne 
%: 1 /e v03-016 TLC1052 Thomas L. Cafarella 17-Feb-1984 11:00 
95 ; : e Add multi-file umnare capability. 
: ea 
$$ . = /e v03-015 TLC1051 Thomas L. Cafarella 11-Jan-1984 11:00 
a : : Add consecutive number to class header record. 
; e 
100 ; 1 /* v03-015 past 903 aul R. Sen 9-Jan-1984 10:00 
+ 4 : : - Fix 1 bit seaeuse passing problem on Bm a to DISP_TEMPLATE. 
; e 
198 ae /* v03-015 PRS1002 aul R. Senn 29-Dec-1983 16:00 
106; 1 /* GLOBALDEF VALUE coals must now be Longwords; 


Pe :15: 1-27 
sats ri 98:13:88 PL EKSVNSHASTER? honor. SRCIJREQUEST. pit 2 (2) 


Een 


igoskct age 09:18:15 
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STER’ "EHONTOR. SRCIREQUEST. Lis Fs (2). 


Use TREPLACE rather than GLOBALDEF a for any equated 


symbols which are not 4 bytes in length 


PRS1001 Paul R. Sen 27-Dec-1983 


Make default interval = 6 for ALL classes Pseudo-class 


Live requests. 


PRS1000 Paul R. Senn 15-Dec-1983 
For cases where one disp pray evens may involve multiple 


screens of data (such as PROCESSES and homogeneous 


GLasseq). make the wait between screens = VIEWING_TIME, 


nstead of a constant of 2 seconds. 


TLC1050 as L. Cafarella 06-Dec-1983 
Change sweteie oie tia in DLOCK class. 
TLC1047 Thomas L. Cafarella 09-Sep-1983 
De-establish cTRU handier to get back AST quota. 
$PC0007 Stephen P. Car 24-Jun-1983 
Add execute comnend” file handling in CTRLZ routine. 
TLE1042 Thomas L. Cafarella 19-Jun-1983 
Add /ITEM qualities for homogeneous classes. 
TLC1039 Thomas L. Cafarella 15-Jun-1983 
Add DECnet node name to heading. 
TLC1037 as L. Cafarella 14-Jun-1983 
Perform FLUSH Pg writing record (instead of before). 
SPC0005 Stephen P. Carney 10-Jun-1983 
Make the playbeck/recerd tile read-shareable 
TLC1035 Thomas L. Cafarella 06-Jun-1983 
Add homogeneous class type and DISK class. 
TLC1033 Thom Cafarella 30-May-1983 
Don't clear screen "ter Cir /l. 
TLC1032 Thomas L. Cafarella 27-May-1983 


Modify file structure level ID for LOCK class. change. 


v03-008 SPC0002 Stephen P. Carney 22-Apr-1983 


te 
Modify file otvurture level ID lor new ACPCACHE class. 


v03-007 TLC1028 Thomas L. Cafarella 14-Apr-1983 


v0O3-007 TLC1027 


MAMMA ES BS BEES EEE EUW 


Add interactive user interface. 


Thomas F Cafarella 14-Apr-1983 
Enhance file compatibility features. 


v03-006 TLC1022 Thom Cafarella 12-Jul-1982 
Change recording file. silustere level since new classes 


ee ee a ee el a le ee le el el el lt lt ll lh el cel el lt el al lt lh el ll lt lt cel cl lt lt calls cls cl cl lls cls ls 
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166 [c= /* v03-005 TLC1016 Thom Cafarella 02-Apr-1982 16:00 , 
1o7 ' : . Replace references to *exesca. SYSTIME with $6 TTIM calls. iF 
165} 1 /* VO3-005 TLC1014 Thomas L. Cafarella 01-Apr-1982 13:00 iF 
198 ' ; cS Correct attached processor time reporting for MODES class. MF 
168 t 4 /s 03-005 TLC1013 Thom Cafarella | 31-Mar-1982 09:00 1; 
199; ie Do not clear TOP box until it fills with date. | ‘i 
Wii 4 /* vO3-005 TLC1012 Thomas L. Catarella 30-Mar-1982 13:00 1; 
176 : ; a Display user's comment string on screen line 5. 1; 
; j 
174} 1 /* vO3-005 TLC1011 Thomas L. Cafarelia 29-Mar-1982 Ss. 20:00 1 
\t? : n Move system service names for SSERROR msg to static storage. iF 
iy /* 03-004 TLC1009 Thomas L. Cafarella 29-Mar-1982 01:00 iF 
178 1 is Get current time when other times are converted. iF 
180} 1 /* V03-004 TLC1008 Thomas L. Cafarella 28-Mar-1982 —=.21:00 1 
181 1 - Fx to display first a Last PROCESSES records on playback. i 
183} 1 /* v03-004 TLC1006 Thomas L. Cafarella 28-Mar-1982 13:00 iF 
136 1 ie Add checks to am data display on CTRL-C during template. iF 
186} 1 /s 03-003 TLC1003 Thomas L. Cafarella 23-Mar-1982 13:00 1 
187 ' is Fix up module headers. F 
189} 1 /* vO3-002 TLC1002 $l. Cafarella | 20-Mar-1982 13:00 f 
190; 1 /* Change processes vdvsplay” from scroll-style to page-style to 1" 
191 i - make it terminal-independent. i 
. ‘ 

138 i } a Move collection event flag to REQUEST.PLI for consolidation. iF 
195} 1 /* vO3-001 TL.C1001 Thomas L. Cafarella 16-Mar-1982 13:00 it 
196 Be /* Add CTRL-W screen refresh support. iF 
197: 1 /* iF 
198; 1 /t-- F 
199; 1 /*/ iF 
200 «1 iF 
1 
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} .e /* 
§ oe /* 
ce /* ! ! 
; 4 /* ' INCLUDE FILES ! 
5: 1 /* ‘ ! 
{ 1 /* ' sce eon ae eowre wee we mE BBB HP er BODO wm ODED Dew rw wre Bee nr we nwoe newer wee wrer rw enw ero emma eon ae ac = oo+ 
08 H : /t/ 
1 ZINCLUDE MONDEF ; /* Monitor utility structure definitions */ 
eee ZINCLUDE SCHFDEF; /* Condition handler facility definitions */ 
+4 } ZINCLUDE SSTSDEF; /* Status value definitions */ 
1015; 1 /* 
1 \$ { 1 /* ' een ee sere ere wrewes ae ww cc es oa Se ee Se eS we SS & ow ww wD ee sere we Howe ee oo 
1017 | «1 /* ! ! 
1 18 ; F /* ! SYSTEM SERVICE MACRO DEFINITIONS ! 
1019}; 1 /* ! ! 
10 0 ; 1 /t ' a ee ee ee Se sew 3 ee me mee ee Se eS eR ee ee ee wee nwrona > 
' 8 7 ¢ : /e/ 
10 § 1 ZINCLUDE SYSSDCLAST; /* SDOCLAST system service */ 
1031 1 ZINCLUDE SYSSSETAST; /* SSETAST system service */ 
ort 1 ZINCLUDE SYSSCLREF ; /* SCLREF system service */ 
1043 1 ZINCLUDE SYSSSETEF; /* $SETEF system service */ 
10491 ZINCLUDE SYSSREADEF ; /* $READEF system service */ 
1999 1 ZINCLUDE SYSSSETIMR; /* SSETIMR system service */ 
1 1 ZINCLUDE SYSSCANTIM; /* SCANTIM system service */ 
1072 1 ZINCLUDE SYSSASCTIM; /* SASCTIM system service */ 
1081 1 ZINCLUDE SYSSWAITFR; /* SWAITFR system service */ 
1087 1 ZINCLUDE SYSSWFLOR; /* $WFLOR system service */ 
1094 ZINCLUDE SYSSPUTMSG; /* $PUTMSG system service */ 


| 
| 
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1103; 1 /* if 
1105 | 1 /* ' ' 1 
1106} 1 /* i EXTERNAL STORAGE DEFINITIONS i if 
1107} 1 /* i i 1 
11 a /*/ 1 
11 9 1 1 
111 1 Declare 1 
18 } ST_LEVEL_CUR CHAR (8) GLOBALREF; /* Current MONITOR recording file structure level */ t 
111 1 Declare 1 
1115 1 MAX_CLASS_NO FIXED BINARY(31) GLOBALREF VALUE, /* Maximum defined class number */ 1 
1118 1 CLASSTABLE FIXED BINARY(31) GLOBALREF VALUE, /* Addr of table of class names & numbers*/ 1 
111 1 VIWIDTH FIXED BINARY(31) GLOBALREF VALUE, /* Width of video terminal */ 1 
1118 1 VTHE IGHT FIXED BINARY(31) GLOBALREF VALUE, /* Height of video terminal */ 1 
1119 1 MAX_REC_SIZE FIXED BINARY(31) GLOBALREF VALUE, /* Max record size for PLAYBACK & RECORD files */ 1 
1120 1 ProtS CCSNO FIXED BINARY(31) GLOBALREF VALUE, /* PROCESSES class number */ 1 
1121 1 STATES _CLSNO FIXED BINARY(31) GLOBALREF VALUE, /* STATES class number */ 1 
11 ¢ 1 MODES ELSNO FIXED BINARY(31) GLOBALREF VALUE, /* MODES class number */ 1 
1 i : SYSTEA_CLSNO FIXED BINARY(31) GLOBALREF VALUE; /* SYSTEM class number */ : 
1125 1 Declare 1 
11 $ 1 CDBPTR POINTER GLOBALREF /* Pointer to CDB (Class Descriptor Block) */ 1 
11 1 C POINTER DEF INED(COBPTR), /* Synonym for CDBPTR */ 1 
1128 1 MRBPTR POINTER GLOBALREF /* Pointer to MRB (Monitor Request Block) */ 1 
1291 POINTER DEF INED(MRBPTR) , /* Synonym for MRBPTR */ 1 
11 1 MCAPTR POINTER GLOBALREF /* Pointer to MCA (Monitor Communication Area) */ 1 
1131.01 mC POINTER DEF INED(MCAPTR), /* Synonym for MCAPTR */ 1 
1 § : SPTR POINTER GLOBALREF ; /* Pointer to SYI (System Information Area) */ i 
11 1 Declare : if 
i} 5 ' MFSPTR POINTER GLOBALREF ; /* Pointer to Multi-File Summary Block (MFS) */ \ 
11 1 Declare 1 
Ns 1 DISPLAYING BIT(1) ALIGNED GLOBALREF; /* YES=> display output is active */ : 
1140 1 Declare 1 
1141 1 CTRLCZ_CHAN FIXED BINARY(31) GLOBALREF, /* Channel number for CTRL-C and CTRL-Z */ 1 
1166 ' CTRLW_CHAN FIXED BINARY(31) GLOBALREF; /* Channel number for CTRL-W */ : 
1144 1 Declare 1 
1145 1 EXESGL_MP POINTER GLOBAL EF /* Pointer to multiprocessing data structures */ 1 
1338 1 SGNSGW_MAXPRCCT FIXED BINARY(15) GLOBALREF, /* MAXPROCESSCNT SYSGEN parameter value */ 1 
114 1 PFNSGL_PHYPGCNT FIXED BINARY(31) GLOBALREF, /* Balance set penery size (in pages) */ 1 
1133 : MPWSGW_HILIM FIXED BINARY(15) GLOBALREF; /* MPW_HILIMIT SYSGEN parameter value */ ! 
1130 1 Declare 1 
1151 1 SETIMR_STR FIXED BINARY(7) GLOBALREF, /* Count byte for SSETIMR cstring */ 1 
1136 1 DCLAST_STR FIXED BINARY(7) GLOBALREF, /* Count byte for S$DCLAST cstring */ 1 
115 1 SCHDWK_STR FIXED BINARY(7) GLOBALREF, /* Count byte for SSCHDWK cstring */ 1 
1154 1 READEF STR FIXED BINARY(7) GLOBALREF, /* Count byte for $READEF cstring */ 1 
i Ne7 : CLREF_STR FIXED BINARY(7) GLOBALREF; /* Count byte for SCLREF cstring */ , 
1189 1 ‘ 


a am 7 ——EEE eo 


K 
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1158; 1 /* 
1 13 ! as } EXTERNAL ROUTINE DEFINITIONS 

H © : : 
1165 1 
1198 1 Declare 
116 1 MON_ERR ENTRY (ANY VALUE, ANY, ANY) OPTIONS(VARIABLE), /* MONITOR pacno~ ae routine to log s)nchronous error 
1168 1 SIGRNAL_MON_ERR TRY, /* MONITOR MACRO=32 routine to signa. MONITOR errors 
118 1 READ_IAPUT TRY (FIXED BINARY(31)) /* MONITOR routine to read an input spheyoagh) file 
1170 1 ESTAB_CTRLCZ ENTRY RETURNS(FIXED BINARY(31)), /* MONITOR MACRO-52 routine to set up CTRL-C and CTR 
1171 1 ESTAB_CTRLW TRY RETURNS(FIXED BINARY(31)), /* MONITOR MACRO-3S2 routine to set up CTRL-W handler 
1186 1 DISPLAY_INIT TRY RETURNS(FIXED BINARY(31)), /* MONITOR MACRO-32 routine to do display init */ 
117 1 SUMMARY _INIT ENTRY RETURNS(FIXED BINARY(31)), /* MONITOR MACRO=3S2 routine to do summary init */ 
1174 1 COLLECTION_EVENT ENTRY /* MONITOR rout ing to perform collection */ 
110? ' QUAD_LT_QUAD ENTRY (BIT(64) ALIGNED, BIT(64) ALIGNED) /* MONITOR MACRO-32 unsigned quadword compare routin 
WW? 1 QUAD_EQ_0 N (BI1T(64) ALIGNED) RETURNS(BIT(1)) /* MONITOR MACRO-32 quadword compare to 0 routine */ 
1378 1 CvT_TO BELTA ENTRY (FIXED BINARY(31), B1T(64) ALIGNED), /* MONITOR MACRO-32 rtn to convert to delta time */ 
117 1 PC RETURNS (BIT(1)) /* MONITOR MACRO-32 rtn to check for MP capability * 
1180 1 COMPUTE BOOTTIME ENTRY RETURNS(FIXED BINARY(31)), /* MONITOR MACRO=32 rtn to compute system time at bo 
By 2 ' CLUS_NET_INFO ENTRY RETURNS(FIXED BINARY(31)); /* MONITOR MACRO-S2 rtn to get cluster & net info */ 
1183 1 Declare 
1184 1 DISP_TEMPLATE ENTRY (POINTER, BIT(1)_ ALIGNED) /* Rtn to display the template */ 
133? 1 ETURNS (FIXED BINARY(31)) 
11 1 DISPLAY_PUT ENTRY(ANY, FIXED BINARY(315, ANY, ANY) /* MACRO-32 rtn to put a display string */ 
11871 OPTIONS (VARIABLE) 
1188 1 RETURNS(FIXED BINARY(31)), 
1189 1 FILL_DISP_BUFF ENTRY (POINTER, BIT(64) ALIGNED) /* MACRO-32 Fill display buffer routine */ 
1190 1 ETURNS (FIXED BINARY(31)), 
1191 1 DISPLAY_HOMOG ENTRY (POINTER) /* MACRO-32 rtn to display homog class data */ 
1136 1 ETURNS (FIXED BINARY(31)) 
119 1 DISPLAY_PROCS ENTRY (POINTER, BIT(64) ALIGNED) /* MACRO-32 rtn to display processes */ 
1194 1 RETURNS (FIXED BINARY(31)), 
1195 1 DISPLAY_TOP ENTRY (POINTER) /* MACRO-32 rtn to display top processes */ 
1139 : RETURNS (FIXED BINARY(31)); 


vives tt ene 1B-se-1994 PE 18d | Wecdbnshadrer*thontoR. srcarequest.rc ie) 66) 


11 om /* 
1 Ss /* ! } 
1 ..% /* : MESSAGE DEFINITIONS ! 
1 ¢ oh /* ! ! 
1205 1 

1 1 Declare 

1 1 MNRS_SSERROR FIXED BINARY(31) GLOBALREF VALUE, 

1 88 1 MNR =p) ar eae ah. D BINARY e 1} teat Ree VALUE, 

1 1 MNRS_BEGNLEND FIXED BINARY(31) GLOBALRE® VALUE, 

1 \ 1 eed le FIXED BINARY(31) GLOBALREF VALUE, 

121 1 MNRS_CLASNP FIXED BINARY(31) GLOBALREF VALUE, 

1 \§ 1 MNRS_CLASUNK FIXED BINARY(31) GLOBALREF VALUE, 

121 1 MNRS$_NOCLASS FIXED BINARY(31) GLOBALREF VALUE, 

1214 1 MNRS_CLASDISAB FIXED BINARY(31) GLOBALREF VALUE, 

1215 1 R$_BEGRAN FIXED BINARY(31) GLOBALREF VALUE, 

1 1 1 MNRS$_PREMEOF FIXED BINARY(31) GLOBALREF VALUE, 

121 1 ant ML ta FIXED BINARY(31) GLOBALREF VALUE, 

1 18 1 MNRS_UNSTL FIXED BINARY(31) GLOBALREF VALUE, 

121 1 RS_ TPU FIXED BINARY(31) GLOBALREF VALUE, 

1220 1 MNRS_UNEXPERR FIXED BINARY(31) GLOBALREF VALUE; 

1221 1 

1222 1 
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/* ; ! 

M GLOBAL STORAGE DEFINITIONS } 

/* ' errs er reer er 2 ee 8 Be wm wm Bw em Te HB HM OTe eMerBeewoe nee nw ww rcen rn wm son wea em eoc ana eoewnae nance a= eSeeeoaeaeaeo + 

/*/ 

Declare 

HEADER_TYPE FIXED BINARY(15) GLOBALDEF INIT(128), /* Type code for MONITOR recording file header */ 
SYI_TYPE FIXED BINARY 13) GLOBALDEF Nit e199) /* Tepe code for MONITOR recording file sys info rec 
DISP_EV_FLAG eee BINARY(31) GLOBALDEF VALUE INIT (16) /* Dis tay event flag */ 

DISP_LEV_FLAG_M B1T(32) etry GLOBALDEF VALUE INIT('00060900000000001'B), /* Dis lay event flag mask */ 
REFR_EV_FLAG piace BINARY(351) GLOBALDEF VALUE INIT(17) /* Be inesn event flag */ 

REFRLEV_FLAG_M B1T(32) ALIGNED GLOBALDEF VALUE INIT('O 0600000000000001'B), /* Refresh event flag mask */ 
COLL_EV_FLAG FIXED BINARY(31) GLOBALDEF VALUE INIT(18), /* Collection event flag */ 

BET_EV_FLAG FIXED BINARY(51) GLOBALDEF VALUE nites } /* "Between screens'’ event flag */ 

HIB_EV_FLAG FIXED BINARY( } GLOBALDEF VALUE INIT( 9}. /* Hibernation event 89 * 

INTERVAL_DEFAULT FIXED BINARY(31) GLOBALDEF VALUE INIT(3) /* Default collection interval value */ 
ALLCL_INT_DEFAULT FIXED BINARY(31) GLOBALDEF VALUE INIT(65, /* Default coll. interval for ALL classes Pseudo cla 
SYSCL_INT DEFAULT FIXED ails 1) GLOBALDEF VALUE INIT(6), /* Default coll. interval for SYSTEM class Pseudo cl 
VIEWING DEFAULT FIXED BINARY ( Ht} GLOBALDEF VALUE INIT(3) /* Default viewing time value * 

FLUSH_IRT_DEFAULT FIXED BINARY(31) GLOBALDEF VALUE INIT($00), /* Default flush interval value */ 

BALSETMEM-DEF FIXED Bee eats GLOBALDEF VALUE INIT(3000), /* Default value for balance set memory */ 
MPWHILIM_DEF FIXED BINARY(31) GLOBALDEF VALUE INIT(500), /* Default value for MPW_HILIMIT */ 

COLLENDED BIT(1) ALIGNED GLOBALDEF, /* YES => collection has ended */ 

CTRLZ_HIT BIT(1) ALIGNED GLOBALDEF, /* YES => CTRL-Z has been hit */ 

CTRLCZ_HIT BIT(1) ALIGNE GLOBALDEF, /* YES => CTRL-C or CTRL-Z has been hit */ 

NEXT_REC FIXED BINARY(31) GLOBALDEF VALUE INIT(O), /* Read next record indicator for READ_INPUT rtn */ 
SKIP_TO_CLASS FIXED BINARY(31) GLOBALDEF VALUE INIT(1), /* Skip to class record indicator for READ_INPUT rtn 
CCDOPTR POINTER GLOBALDEF, /* Pointer to CCD (Current Class Descriptor) Array * 
COLL_STATUS FIXED BINARY(31) GLOBALDEF, /* COLLECTION_EVENT status code */ 

H POINTER GLOBALDEF /* Pointer to input file header */ 

INP_COMM_STR CHAR(MNR_HDRSK_MAXCOMLEN) GLOBALDEF, /* User comment string from input file */ 
INP_COMM_LEN FIXED BIRARY(15) GLOBALDEF; /* Actual length of comment string */ 

/t 

/t ' Sree nrnnr oer ren mr caer mronmecan See e ewer esee we seer er eee eee OO Re ODE ST RTO RE eS + 

/* ! ' 

a COMPILE-TIME CONSTANTS } 

/* ! ee a See Pee eB Bee Oe OREO BE DOSES NGOS OEE DE ODO ESE Owe DEE EE DSSS Sw wee ee ee + 

/*/ 

ZREPLACE NOT_SUCCESSFUL BY ‘'0'B; /* Failing status bit */ 

ZREPLACE YES BY '1'B; /* For general use */ 

ZREPLACE NO BY '0'B /* For general use */ 

ZREPLACE ENABLE _AST BY 1; /* Enable AST indicator */ 

ZREPLACE DISABLE_AST BY 0; /* Disable AST indicator «/ 

ZREPLACE AND _OP BY '6001'B; /* AND Boolean operation */ 

ZREPLACE XOR_OP BY '0110'B; /* XOR Boolean operation */ 
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EXECUTE _REQUEST 16-SEP-1984 02:15: VAX-11 PL/I _X2.1-273 Page 1 
tee tt gr SEE 1 SRe ATL SE EKSVMSHASTER: FRONTOR. SRCIREQUEST.PLi TS (8) 
1276; 1 fs 
i , 1 is i OWN STORAGE 
H * . . 
1 + ; 4 /* : ! 
; 1 ; oes | mememwoooooeweeeooeeococecs eeecee Sesto new een n eer ern nen ere nnn emer ere w neem er ewan} 
oa 
1588) 
1 Se 1 Declare 
1285 1 CALL FIXED BINARY (31) /* Holds function value (return status) of called ro 
: 56 : STATUS BiT(1) BASED(ADDR(CALL)); /* Low-order status bit for called routines */ 
1288 1 Declare 
1289 1 NORMAL FIXED BINARY(31) GLOBALREF, /* MONITOR normal return status */ 
1290 1 TEMP FIXED BINARY(31), /* Scratch ‘'register’’ */ 
1291 1 CURR_ERRCODE FIXED BINARY(31), /* MONITOR error status code currently expected */ 
1 36 1 REQUEST_STATUS FIXED BINARY(31), /* EXECUTE_REQUEST status code */ 
129 1 ALREADY FAILED B1T(1) ALIGNED, /* YES => a failure has already been signaled */ 
1294 1 TEMP_PT POINTER /* Scratch pointer */ 
1295 1 RECORD_STR CHAR(128) VARYING; /* Fully expanded file name string for the recording 
1296 | 1 /* NOTE -- When the recording file is re-opened for 
1297; 1 /* it uses this fully expanded file ape tng. This pr 
1298: 1 /* MONITOR from updating the wrong file if a new ver 
1299 | 1 /* created in the directory before the recording fil 
' : H } /* opened for update. */ 
i o¢ 1 Declare 
130 1 INTERVAL_DEL B1T(64) ALIGNED GLOBALDEF, /* Delta time value for Interval */ 
1308 : VIEWING _BEL B1T(64) ALIGNED GLOBALDEF; /* Delta time value for Viewing time */ 
1306 1 Declare 
1307 1 CURR_DCLASS FIXED BINARY(15), /* Consec no (not class no) of current display class 
1308 1 REPT_TOP BIT(1) aL lenee /* YES => Repeat a TOP ¢iae ley «/ 
139) ' MULT" TEMP FIXED BINARY(31) GLOBALDEF; /* Temp area for MCA$L_INT_MULT, used in COLLECTION_ 
1317: 3 /* 
1312 | 1 /* File Declarations 
1313; 1 /* 
1314; 1 /* The recording file is read shareable. This allows other 
131? i ' ~ MONITOR images to use the FLUSHED recording file as input. 
1 i he /* When the recording file is opened for update (to write header 
1 \8 i” /* information), it uses a fully expended file string. This prevents 
1319 ; 1 /* MONITOR from updating the wrong file if a new version is created 
' Y ‘ ' -. in the directory before the recording file is opened for update. 
1 ¢ 1 
1 1 Declare 
1324 i INPUT FILE FILE RECORD INPUT, /* Monitor Input (Playback) File */ 
1325 1 RECORB_FILE FILE RECORD, /* Monitor Record File */ 
' : ! RECCT FIXED BINARY(31) GLOBALDEF; /* Count of records written to record file */ 
13 8 1 Declare 
; 9 : TEMP_TYPE BIT(8) ALIGNED; /* Temporary area for record type byte */ 
ii 1 1 Declare 
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aa 


/* ofr rs nput buffer count word */ 
§ VARYING BASED(INPUT_CPTR), /® P aybac file input buffer s/ 
/* Is LAY_PUT routine ieee 
: /* YES => Rlate buffer wit FAO. first */ 
/* YES => Really output buffer 
: /* Length of buffer for DISPLAY “bur to put */ 
| 
| 
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EXECUTE_REQUEST Ig-sEP-19 4 715: VAX=-11 PL/I —_X2.1-273 XE 
vat ti mit} 7 Oe: 13588 DI SKSVMSMASTER. MONTOR. SRCIREQUEST. pia? 18) | 04 
1340 1 Declare 
ip} FLURtHaPy PLL gta, GLOBAL PAN OR Te eet TAC 
° umber of co e on events * 
| § ! FLUSH_CTR FIXED BiNaRyeds GLOBALDEF; /* Down counter for FLUSH-COLLS */ pce be 
13451 
1 § 1 BT cu CURR_CLASS_DESCR (MAX_CLASS_NO*1), /* Current Class Descriptor Array */ 
1 1 /* This array er structures includes a CCD (Current 
1 3 .-% /* Class # Pesce ptor) for each class collected. */ | 
1 1 8 CURR_CDBPTR pyiet /* CDBPTR for current class */ 
; 3 ! CURR-CLASS_NO FIXED OR INARY(7); /* Class number for current class */ | 
1 1 
1 3g 1 Decla 
1354 1 01 D. CURR _CLASS_DESCR (MAX_CLASS_NO+1), /* Current Class Descriptor Array for display classe 
1355 ; 1 /* This array of structures includes a D_CCD (Curren 
1 § cm /* Class Descriptor) for each class displayed. */ 
135 1 02 D_CURR_CDBPTR POINT /* CDBPTR for current display class */ 
1328 ; O02 D-CURR-CLASS_NO FIXED OR INARY(7); /* Class number for current display class */ 
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Rm 


CUTE REQUEST 


1360: 1 /* 19 

1 :-§ [ees 19 

1 4 /* | 19 

i ' 1 ~ FUNCTIONAL DESCRIPTION: | Y 
; e 

1 5} is EXECUTE_REQUEST 1 
; ® 

1 a ye This routine is called by MONMAIN to execute a MONITOR request. 19 

1 _ /* The request is defined by the Monitor Request Block (MRB), which 19 

; i ' : . is created by MONMAIN after parsing a command string. 

1371: 1 /* INPUTS: 19 

1 re > 4 /* 19 

1373: 1 /* None 19 

1374; 1 /* 19 

| if} : 1 ye IMPLICIT INPUTS: 1 
H © 

i " a Monitor Request Block (MRB), pointed to by MRBPTR. 19 

1379} 1 /* OUTPUTS: 19 

1380} 1 /* 19 

1381: 1 /* None 19 

138¢ | /* 19 

1383: 1 /* IMPLICIT OUTPUTS: 19 

1384; 1 fe 19 

1385 ; 1 /* Monitor request has been performed. 19 

1386} 1 /* 19 

1387: 1 /* ROUTINE VALUE: 19 

1388; 1 /* 19 

1389: 1 /* SS$_NORMAL, or failing MONITOR status code. 19 

1390: 1 /* 19 

1391; 1 /t-- 19 

1392} 1 /*/ 19 

13931 19 

19 

19 

19 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

15 

14 
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EXECUTE _REQUEST 1b-$ER-1 4 02:15: VAX=11 PL/I X2.1=273 Page 14 | XE 
fhe 5008 ~$Fb 1382 98:18:83 ISKSVMSMASTER: [MONTORSRCJREQUEST.PLI:4 (11) | 04 
| 
139% 1 ON FINISH; /* On finish, do nothing */ | 15 
1395] ALREADY FAILED = NO; /* Indicate no failure yet signaled */ | 13 
| ? | CURR_ERRCODE = 0; /* Set expected MONITOR code to default */ | 13 
1398; 1 /* 19 
1399} 1 /* Set up condition handler to terminate the MONITOR request on: 1§ 
1400 : 1 /* 1) any asynchronous error condition, such as file and 1/0 errors; 15 
1401; 1 /* 2) any synchronous MONITOR-detected condition. 15 
I ay ; 
1404 1 ON ANYCONDITION /* On any condition signaled, */ 19 
1405 BEGIN; Me 
140 Declare 15 
1408 MNRS_ERRINPFIL FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 19 
1409 MNRS$_ERRRECFIL FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 15 
1410 MNR$_UNEXPERR FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 15 
1411 2 MON_CODE FIXED BINARY(31), /* Monitor message code */ 15 
141g : TEM FIXED BINARY(31), /* Tem orary scratch area */ 15 
141 MNR$_FACNO FIXED BINARY ( 1) GLOBALREF VALUE, /* MONITOR facility number */ 15 
1414 ON_FILE CHAR(100) VARYING /* Holds possible file name string */ 15 
1419 SIGNALED_ERR ENTRY (ANY VALUE, ANY VALUE, ANY VALUE, ANY); /* Rtn to set up PUTMSGVEC */ 13 
1617 IF * ALREADY FAILED /* If a failure not already signaled, */ 1 
1419 ALREADY FAILED = YES; /* Indicate a failure has been signaled */ 15 
1420 CHFSARGPTR = ONARGSLIST(); /* Get signal array pointer */ 19 
1421 STSSVALUE = CHFSSIG_ NAME; /* Get code for signaled condition */ 15 
14ge UNSPEC(TEMP) = STSS$FAC_NO; /* Convert facility no. to binary in TEMP */ 15 
142 IF TEMP = MNRS_FACNO /* If a MONITOR code, */ 15 
1696 THEN MON_CODE = STSSVALUE; /* then remember it */ 15 
1425 ELSE 00; /* Otherwise, need to set the MON_CODE */ 1S 
1426 & ON_FILE = ONFILE(); /* Get PL/I file constant if 1/0 cond */ 1S 
1427 4 IF"ON FILE = ‘INPUT_FILE' /* If input file error, */ 15 
1428 = TREN MON CODE ="MNRS ERRINPF IL; /* Set Monitor status code accordingly */ 19 
1499 4 ELSE IF ON FILE = ‘RECORD FILE /* See if it's the recording file * 15 
14 4 TREN MON_CODE = ANRS_ERRRECFIL; /* Yes, save code */ 15 
1431 4 ELSE IF CURR_ERRCODE™= /* No, see if an error is currently expected 15 
1636 4 THEN MON_CODE = MNRS_UNEXPERR; /* No, set ‘‘unexpected’’ code */ 15 
te 4 ELSE MON-CODE = CURR-ERRCODE; /* Yes, set currently expected code */ st 
1434 4 CURR_ERRCODE = 0; * Reset to defeult MONITOR error code (‘'une " 
1636 ‘ CALL SIGNALED_ERR(MON_CODE , STSSVALUE ,DIM(CHFS$SIG_ARG,1),CHF$SIG_ARG); /* Log the error */ $ 
14 ‘ 2 
1438 REQUEST_STATUS = MON CODE; /* Set up code for MONITOR coquest termination */ ( 
1439 CALL = TOLLECTION_END(); /* Shut down collection activity */ ( 
re eat REQUEST_CLEARUP() ; /* Perform cleanup for files, memory, etc. */ 
144 : 
1448 GO TO REQUEST_EXiT; /* Go return from EXECUTE_REQUEST (PL/I does an UNWI 
1445 END; /* End of ON-condition routine */ 
14461 


‘ei, 
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1447: 1 /* 
1ee8 : : aed Set up EOF condition 
; e 
1450 1 
1451 1 IF M->MRBSA_INPUT “= NULL() /* If this is a PLAYBACK request, */ 
14 ¢ 1 THEN ON ENDFILECINPUT_FILE) MC->MCASV_EOF = YES; /* then set up EOF condition */ 
Weer 
| es 
1? é \ , General MONITOR request initialization 
1457 1 
14 1 CALL = REQUEST_INIT(); /* Initialization for this request */ 
145 1 IF STATUS = NOT_SUCCESSFUL 
1460 1 THEN CALL STGNAL_MON_ERR(); /* Short-circuit request if failure */ 
Wert yy 
| ® 
1288 . 3 /* Establish CTRL-C and CTRL-Z handlers for sr achoyy ay the MONITOR request. 
Me ¢: } ; oe CTRL=C causes a MONITOR> prompt. CTRL-Z returns to DCL. 
| e 
14 1 
1267 1 IF COLLENDED = NO THEN CALL = ESTAB_CTRLCZ(); /* If still collecting, establish CTRL-C and CTRL-Z handlers 
1468 : 1 /* If error, do not terminate; simply ignore CTRL-C's and CT 
s/n 
; * 
1479 : 1 ol Establish CTRL-W handler for refreshing the terminal display. 
; * 
147 1 
1474 1 IF COLLENDED = NO & M->MRBSV_DISPLAY /* If still collecting, and display requested */ 
1475 1 THEN CALL = ESTAB_CTRLW(S; /* ,.. establish CTRL-W handler */ 
1678 : : /* If error, do not terminate; simply ignore CTRi-wW's */ 
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1478: 1 
1299 zB /* If this is a Live request, beginning in the future, ‘hibernate’ 
1480 : 1 /* the process until ready to execute. (Use event flags instead of S$HIBER 
1481; 1 /* to avoid the problem of outstanding wakeups interfering with later 
14 ¢ : | /* MONITOR requests.) 
133 : : /*/ 
1eB¢ 1 IF * M=->MRBSV_PLAYBACK . MC->MCASV_FUTURE /* If Live future request, */ 
1058 : nen 60 COLLENDED = NO /* ... and not terminated, */ 
1488 CALL = SYSSSETIMR(HIB_EV_FLAG,M=>MRBS$Q_BEGINNING, ,HIB_EV_FLAG); 
1489 } /* .., set flag when ready to execute request */ 
es IF “ae = NOT_SUCCESSFUL /* Failed? */ 
1438 CALL MON _ERR(MNRS_SSERROR,CALL,SETIMR_STR); /* Yes -- tog the error */ 
149 CALL SIGNAL_MON_ERR(); /* ... and signal it */ 
1494 END; 
1495 BEGIN; 
1496 DECLARE 1 HIBMSG /* Declare hibernate msg vec dynamically */ 
1497 HCOUNT FIXED BIN(31) INIT(1) 
1498 HMSG FIXED BIN(31) INIT(MNRS_HIB) ; 
+4 CALL = SYSSPUTMSG(HIBMSG,,);: /* Let user know we're sleeping */ 
1501 IF COLLENDED = NO THEN CALL = SYSSWAITFRC(HIB_LEV_FLAG); /* ... 2222222222 */ 
1306 END; 
150 1 
1504 ; 1 /* 
1505 ; 1 /* Initialization associated with /DISPLAY output 
te BO Te te 
1508 1 IF M->MRBSV_DISPLAY /* If DISPLAY has been requested, */ 
1302 : © COLLENDED = NO /* ... and request not terminated, */ 
15112 CALL = DISPLAY_INIT(); /* ... then perform init for it */ 
1318 IF STATUS = NOT_ SUCCESSFUL /* Failed? */ 
1514 CALL MON_ERR(MNRS$_DISPERR,CALL); /* Yes -- | the error */ 
1313 cALL SIGRAL_MON_ERR(); /* ... and signal it */ 
1319 2 ON FINISH CALL = DISPLAY_CLEANUP(); /* On finish, do display cleanup */ 
1518 2 END; 
1519 1 
\ 0 1 /* 
i ; : os Initialization associated with /RECORD output 
® 
15 1 
1524 1 IF M->MRBS$V_RECORD /* If RECORD has been requested, */ 
13 5 : © COLLENDED = NO /* ... and request not terminated, */ 
12 ; CALL = RECORD_INIT(); /* ... then do init for it */ 
1528 IF STATUS = NOT_SUCCESSFUL 
13 9 be THEN CALL STGNAL_MON_ERR(); /* Signal error if failure */ 
1531 : 
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EXECUTE_REQUEST 16-SEP-1984 02:15: VAX=11 PL/I X2.1-273 Page 17 EXE 
OTE OD eet 98:13:89 ISKSVMSMASTER: CMONTOR. SRCJREQUEST.PLI.4 (14) v04 
1 3 = /* : 
1 + 1 /* Execute main monitoring routine. When control returns from the CALL, 

1 a /* the MONITOR request will have terminated. ¢ 
' Sj ' /*/ ¢ 
\ 1 IF COLLENDED = NO /* If collection not ended, */ : 
1539 CALL = MONITOR_REQUEST(); /* Perform the MONITOR request */ " 
1540 IF STATUS = NOT_SUCCESSFUL /* If failed, */ ( 
1541 THEN CALL STGNAL_MON_ERR(); /* ... signal the error */ " 
1 ae END; C 
154 ¢ 
1544; 1 /* ¢ 
1545; 1 /* Perform SUMMARY processing if requested. ¢ 
ie rae , 
i $8 i IF at + Petal /* If SUMMARY has been requested, */ | 
188 CALL = REQUEST_SUMMARY(); /* Perform SUMMARY processing */ 1 
133) IF STATUS = NOT_SUCCESSFUL /* If failed, */ 1 
135¢ THEN CALL STGNAL_MON_ERR(); /* ... signal the error */ 
1554 7 1 
132? . - /* 1 
1336 i : oer Perform Multi-File Summary processing if requested. ’ 
1558 21 
1559 1 IF M->MRBSV_MF SUM /* If Multi-File Summary has been requested, */ $] 
1560 1 THEN : 1 
1561 CALL_= SAVE_SUM_BUFFS(); /* Save SUM buffers */ 1 
136¢ IF STATUS ="NOT~SUCCESSFUL /* Failed? */ 1 
156 THEN DO; 1 
1564 CALL MON_ERR(MNRS_UNEXPERR,CALL); /* Yes -- log the error */ 1 
130 cALL SIGRAL_MON_ERR(); /* ... and signal it */ ' 
1867 2 END; 7 1 
1368 1 1 
 $® Os ore 

; ean rocessin 

1373 ; ' /*/ — . 
} 75 ' CALL REQUEST_CLEANUP(); /* Execute various cleanup routines */ 
1238 . @ /* 1 
1376 ; 4 /* Exit from EXECUTE_REQUEST routine 1 
S77 3 4 /* Note -- we get to this point either by falling through 1 
1378 ; 4 /* the above code (normal path), or by direct branch from 1 
13 ! ~ the condition-handling routine (error path). 
: ‘ : REQUEST_STATUS = NORMAL; /* Normal status if we get to this point */ 

1384 ' REQUEST_EXIT: 

1386 : RE TURN(REQUEST_STATUS); /* Return to MONMAIN.PLI with status */ 
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1 REQUEST_INIT: Procedure Returns(fixed binary(31)); 


/* 
/ee+ 


~ FUNCTIONAL DESCRIPTION: 


] 
| 
- REQUEST_INIT 
R 
/* Performs initialization for the Monitor request. 


/* Fills in defaults for the MRB (Monitor Request Block). 


PE PUPP SVSISISISIII 


BSELFSFLNLESE 


/* Also inits the MCA (Monitor Communication Area), opens 


Declare 
f 


1 
1 
1 H 
1 } 
1 ' 
1 ; 
1 ; 
1 ' 
1 } 
1 : 
1238 } 
1600 | /* the input (playback) file if necessary, and fills in the 
: 13 SYI (System Information Area). 
; * 
1608 H . INPUTS: 
; ke 
1808 ' /* None 
1op8 : /* 
1607 ; /* OUTPUTS: 
1608 ; /* 
1609 ; /* None 
1610 ; /* 
1611 { /* ROUTINE VALUE: 
1616 : /* 
1917 : SS$_NORMAL, or failing MONITOR status code. 
H & 
191? : . SIDE EFFECTS: 
{ cy 
1817 : . /INPUT file (INPUT_FILE) is positioned to the first class record. 
; ry 
1619 ; /t-- 
1620 ; /e/ 
1621 
16 § : /* 
16 ; /* | ewoeeeeceesoeoesoeeeesoeseseeesoeeeesoeessooesesoessesesseoeseossoesosesoesseseses ewan t 
1624 ; /* ‘ : 
1625 ; /* ! LOCAL STORAGE : 
16 § H /* ! : 
16 | /e | ewoeeeeeeseeeeeeeseseeeeeseseseeseeseecesesesesseseeesesseeeeseseeesessseseesoe + 
1628 : 
1629 
16 
16 
16 


POINTER; /* Pointer to class record in input file */ 
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1 
1633 REQUEST er = NORMAL; /* Start off this MONITOR request with normal status */ ’ 
16 COLL. STATUS = NORMAL; /* Start off COLLECTION EVENT with normal status */ ; 
1635 COLLENDED = NO; /* Indicate collection fias not ended */ 
16 CTRLZ_HIT = NO; /* Indicate CTRL-Z not hit */ 
16 CTRL ay = ND; /* Indicate CTRL=C and CTRL-Z not hit */ 
16 CTRLCZ_CHAN = 0; /* ... and no channel assigned for them */ 
16 CTRLW_CHAN = 0; /* No channel assigned for CTRL-W */ 
1640 P_COMM LEN = 0; /* Lengch of input comment string */ 
1641 MC-SMCASC_COLLCNT = 0; /* Initial ze collection count * 
1206 MC=>MCASL_DISPCNT = 0; /* ... and apr ey count */ 
164 MC~>MCASL_CONSEC REC = 0; /* Consecutive collection nyaber for recording */ 
1644 MC->MCASQ-LASTCOCL = ‘0 b; /* Init latest collection time */ 
1645 MC=>MCASV_FUTURE = NO; /* Assume not a future request */ 
1908 MC=>MCASV_EOF = NO; /* Assume EOF not yet found on /INPUT file */ 
164 MC=>MCASV_ERA_SCRL = NO; /* Assume no need to erase gcrott ing region */ 
1648 MC->MCASV_VIDEO = NO; /* Assume display : rminal is not video */ 
1649 MC=>MCASV_GRAPHICS = NO; /* ... and not VI=-55 graphics */ 
1650 MC->MCASV_TOP_DISP = NO; /* Indicate no TOP qisplays issued yet */ 
1651 MC->MCASV_S_TOP_DISP = NO; /* Also no SYSTEM (TOP) displays issued yet */ 
169¢ MC->MCASV_REFRESH = NO; /* Indicate screen refresh request not received */ 
165 MC->MCASV_FILLER = '0'B; /* Clear all unuse flags «/ 
1654 USH_IND = NO; /* Indicate record ng file flush not required */ 
1655 CURR_BCLASS = 0; /* Init current display class */ 
1638 PT _ TOP = NO; /* Indicate do not repeat TOP display */ 
165 DISPCAYING = NO; /* Indicate cteplay output not yet begun */ 
1658 CCDPTR = ADDR(CURR_CLASS_DESCR); /* Set up ptr for COLLECTION_EVENT to use */ 
1659 CALL = SYSSCLREF(REFR_EV_FLAG); /* Clear refresh event fla 
Ll = LE_. : * Make sure s are enabled * 
1660 CALL = SYSSSETAST(ENABLE_AST) /* Mak AST‘ led */ 
1862 je 
1608 H /* Set MRB flags for options that were requested 
1666 If M=>MRBSA_INPUT “= NULL() THEN M=>MRBSV_PLAYBACK = YES; /* If INPUT specified, indicate so */ 
1667 IF M->MRBSA_DISPLAY “= NULL() THEN M=->MRBSV_DISPLAY = YES; /* If DISPLAY specified, indicate so */ 
1668 IF M=->MRBSA_RECORD “= NULL() THEN M=>MRBSV_RECORD = YES; /* If RECORD specified, indicate so */ 
166) IF M=>MRBSA_SUMMARY “= NULL() THEN M->MRBSV_SUMMARY = YES; /* If SUMMARY Specified, indicate so */ 
1671 F * M=>MRBSV_DISPLAY & * M->MRBSV_RECORD & “ M->MRBSV_SUMMARY /* If none of the outputs requested, */ 
1676 & * aeranetayy oun /* ... AND it’s not am.f. summary, */ 
1674 CALL MON_ERR(MNR$_NOOUTPUT); /* Log the error */ 
1673 RETURN CARRS NOOUTPUT) ; /* ... and return with status */ 
i 
| * 
1879 H /t Set or clear display event flag 
1939 : /*/ 
168 IF M->MRBSV_DISPLAY /* If display requested, «/ a. 
168 THEN CACL = SYSSSETEF(DISP_EV_FLAG); /* ... then set display event flag to force Ist display even 
er ELSE CALL = SYSSCLREF(DISP_EV_FLAG); /* ... otherwise clear it */ 
He + : e, If PLAYBACK, perform input file initialization, so MONITOR file header information can be accessed. 
: @ 
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1689 

1oy IF gto 3 PLAYBACK /* If this is a PLAYBACK request, */ 

169 CALL = INPUT_INIT(); /* ... perform input file initializaton */ 

1695 If STATUS 2 nor _SUCCESSFUL THEN RETURN (CALL); 

1695 


a 
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1696 IF Me>MRBSY PLAYBACK /* If this is @ PLAYBACK request, */ ; 
1998 INP_ COMM_STR = H=>MNR_HDRST_COMMENT; /* Save user's comment string from header record */ 
1796 es COMM_LEN = H=>MNR_HDRSW_COMLEN; /* ... and its length */ 
1701 
1702 } /* 
1408 H /* The next several groups of code update the MRB with default and 
1288 ' ., specified values, and, for PLAYBACK, values from the input file. 
17 
1309 H /t 
178 ‘ aes Verify requested classes and set up Current Class Descriptor array 
1710 
1711 BEGIN; 
ar: Declare 
Ald SELECT_REV_LEVS ENTRY(BIT(128) ALIGNED, BI1T(128) ALIGNED, CHAR(128), ANY) /* MACRO-32 rtn to select revision levels 
1714 OPTIONS (VARIABLE) /* ... for all classes 
1715 CALC_LEN ENTRY (BiT(128) AL {GNep) /* wAcRO-32 rtn to +3 i class block ( 
1718 RETURNS (FIXED BINARY(31)); 
171 Declare 
1718 REVLEVELS (0:127) FIXED BINARY(7) GLOBALDEF, /* Revision Levels Vector */ 
1719 REVOCLSBITS MOY Tiwi /* Monitored classes still /* Rev Level 0 */ 
Vy pevyre vec (0:127) BIT (1) ) DEFINED(REVOCLSBITS); /* Bit-addressable alias */ 
eclare 
17 § FILE_CLASSES Bit tise). /* Classes from input file */ 
17 REQ CLASSES 81T(128) /* Classes requested by user */ 
1724 NP_CLASSES BIT (MAX ELASS_NO+1), /* Classes requested but not in input file */ 
1725 DO_ CLASSES BIT(1 ey. /* Classes to actually monitor */ 
17 ° DO_CLASSES_VEC (0:127) BIT(1) DEFINED(DO_CLASSES), /* Bit-addressable alias */ 
17 DO_CLASSES_ AL BIT(1 a} AL in eee /* Aligned copy of DO_CLASSES */ 
1728 R_CLASSES 611(128) ALIGN /* Classes with unknown revision levels */ 
1729 DISPLAY_CLASSES B1T(128) sate GLOBALDEF /* Classes to be  Sreps aves ed */ 
17 CDBHEAD™ FIXED BINARY(31) GLOBALREF VALUE, /* Address of first 
1731 FIXED BINARY(15 /* Index for do-loop */ 
1736 CLA FIXED BINARY(7) /* Class number */ 
17 3 TEMP SEDBPTR POINTER /* Ptr to Class Descriptor Block (CDB) */ 
He CDBPTR_COMP FIXED 5 saat’ ZASED(ADDR(TEMP_CDBPTR)); /* Computable CDBPTR */ 
17 bec lare 
1737 YS_REQ BIT(1) ALIGNED, /* YES => SYSTEM class requested */ 
1738 PROTS REQ BIT(1) ALIGNED, /* YES => PROCESSES class requested */ 
1739 STATES REQ BIT(1) ALIGNED, /* YES => STATES class requested */ 
Ho MODES_REQ BIT(1) ALIGNED: /* YES => MODES class requested */ 


—_—_—— 
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174 3 DO 1 = 0 TO 127; /* Set all_revision levels ... */ 

174 4 REVLEVELS(I) = 6; /* 14. to 0 #/ 

: ee 4 END; 

ite DO_CLASSES = M->MRBSO_CLASSBITS; /* Get set of classes to do */ 

1re8 IF prea 4 PLAYBACK /* Playback request */ 

1750 4 IF MNR_HDRSK_CLASSBITS < MC->MCASL_INPUT_LEN /* If aed A field is defined for , input tile. «/ 
1751 4 THEN FILE_CLASSES = H->MNR_HDRSO_CLA SSB1 TS: /* n get t fit le glasses from vives pl ace */ 

17 § 4 else FILES CLASSES = H=>MNR “HORSO? _REV CLSBITS; /* pipe get them gnosner 

1753: 4 /* NOTE =- MNR nDRSO. Re vd CLSBITS” : iC ad for compati 
1754: 4 /* with ™ 1 and MONBAOO1 file struct le 
1755 4 REQ_CLASSES = DO_CLASSES; /* Get veeuetes” ested «/ 

1038 & DO_CLASSES = BOOC(FILE CLASSES,REQ_CLASSES,AND_OP); /* Compute classes to actually do */ 

175 4 NP-CLASSES = BOOL (DO_CCASSES ,REQ_ CLASS SSES,X XOR_ OP); /* Compute classes not present */ 

1758 4 IF DO_CLASSES = ‘0'B /* If no classes to be done, */ 

1759 4 TREN DO; 

1760 5 MON_ERR(MNR$_NOCLASS); /* Log error */ 

1761 5 RETURN(MARS_NOCLASS) ; /* ... and return */ 

neg ' 

1764 4 IF M->MRBSV_DISPLAY = - & NP_CLASSES “= ‘'0'B /* If at least one class not present AND not displ 
1765 4 & M->MRBSV_MFSUM = NO & M-SMRBSV_ALL_CLASS = NO /* ... AND not multi-file summery. AND not ALL_CLA 
1766 4 THEN BEGIN; /* ... then print a warning */ 

1767 5 DECLARE 1 wens /* Declare not present msg vec dynamically */ 

1768 5 NPCOUNT finee BIN(31) INIT(1), 

1769 5 NPMSG FIXED BIN(31) INIT(MNR $_CLASNP); 

1770 5 CALL = SYSSPUTMSG(NPMSG,,); /* Warn user that classes missing */ 

1771 5 END; 

1778 4 END; 

177 3 
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ae IF DOACLASSES. VEC(SYSTEM_CLSNO) /* If SYSTEM class requested, 

ts pre nee 15 CLASSES_VEC(PROCS_CLSNO) oe Seeakes voy May teak d */ 
= 3 emember whether ted * 

178 DO, CLASSES. VECTPROCS CCSNO) = VES; Je oes and include {t saates 

77 STATES REQ™= DO_CLASSES VEC(STATES_CLSNO) ; /* Remember whether STATES requested */ 

780 DO_ CLASSE 358 =VEC (STATES CCSNO) = YES; /* ... and include it */ 

781 MOBES_ REQ = DO_CLASSES VEC(MODES CLSNO); /* Remember whether fooss requested */ 

ree DOSCLRS LASSES “VECTMODES. CCSNO) = YES; /* ... and include it */ 

ree ELSE SYS_REQ = NO; /* Indicate SYSTEM class not requested */ 

oS DO_CLASSES_AL = DO_CLASSES; /* Get aligned string for later routine calls */ 

788 IF M=->MRBSV_PLAYBACK /* Playback request */ 

£33 THEN rt 

791 | /s For each class in DO_CLASSES, update the CDB with information 

re ' /* from the CHD (CHange Descriptor) for the appropriate revision 

jet, ' i level. 

795 /* Eliminate from DO_CLASSES those classes with incompet tible structure 

re ., levels. Issue a warning message if any incompatibilities found. 


33 
$32 


IF _ HDRSK_REVLEVELS < MC->MCASL_INPUT_LEN /* If REVLEVELS field is defined for input file, */ 


DO; 
CALL SELECT -REV_LEVS(DO_CLASSES_ AL 
H-SMNR_HDRST 
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SES 
“REVLEVELS, REVLEVELS); /* Select revision levels ... */ 
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* ... for all classes */ 

Boe IF ve CLASSES “= 'O'B /* If at least one class has unknown rev level, */ 
806 DO" CLASSES = BOOL (D0_ CLASSES,UNK_CLASSES he sori /* Remove unknowns from DO_CLASSES */ 
807 IF~M->MRBS$V_DISPLAY = NO /* t displayin 
808 THEN BEGIN; /* 4. "Then prin 3 warning */ 
809 DECLARE 1_UNKMSG, /* Declare unknown msg vec dynamically */ 
810 UNKCOUNT FIXED BIN(31) INIT(1) 
811 IXED BIN(31) INIT(MNR$_CLASUNK); 
aig fall s SYSSPUTMSG(UNKMSG,,); /* Warn user that classes have unknown structs */ 
814 END; , , 
Bt? END; 
gi$ ELSE /* Revision levels all 0 */ 
818 CALL SELECT_REV_LEVS(DO_CLASSES_AL.,,REVLEVELS); /* Move CHD info into CDB */ 
th : ees for all classes */ 
; END; 
8 4 ELSE DO; /* Live request t */ 
; Z ENDS SELECT_REV_LEVS(DO_CLASSES_AL., REVLEVELS); /* Select revision levels for all classes */ 

5 
$ IF DO CLASSES VEC(SYSTEM_CLSNO) = YES /* If SYSTEM class being monitored, */ 
836 Hy tea V_SYSCLS”= YES; /* then indicate so * 
B 9 M->MRBSV_SYSCLS = NO; /* else indicate not */ 


8 
EXECUTE _REQUEST 1B -$EP=1 4 02:15: VAX=-11 PL/I 2.1°273 Page 24 
vivant ~$6b=1382 08:13:88 ISKSVMSMASTER: CAONTOR- mages (4S) 
1830 4 IF SYS_REQ = YES /* If SYSTEM originally requested, 
1831 4 THEN DO; /* then make some further checks 7 ‘ 
18 < 5 IF PROCS_REQ /* If PROCESSES not originally, Some é 
18 é THEN” ¢ CLASSES -VEC(PROCS_CLSNO) = NO; /* ,.. make sure it's o «/ , 
1834 IF STATES REQ = NO /* If STATES not originally requested, d 
1835 THEN 60 CLASSES -VEC(STATES_CLSNO) = NO; /* ,.. make sure it's off now */ , 
18 § IF MODES_REG = /* if MODES not originally. requested, d 
i 2 aod THEN DO_ CLASSES -VEC(MODES_CLSNO) = NO; /* ... make sure it’s off now */ ; 
1839 4 END; , 
1840 ( 
1841 IF M->MRBSV_MF SUM /* If multi-file summary «/ ‘ 
ion ; THEN DO_CLASSES_VEC(PROCS_CLSNO) = NO; /* then make sure PROCESSES class is still off */ 
HS 5 ; IF OPEL Asses = '0'B /* If no classes to be done, */ 
1846 4 CALL MON_ERR(MNRS_NOCLASS); /* Log error */ ry 
1847 4 RETURN CHARS _NOCLASS) ; /* ... and return */ 5 
18093 hte 5 
1850 3 DISPLAY_CLASSES = M->MRB$O_CLASSBITS /* Get — copy of orig requested classes */ 24 
1851 3 DISPLAY_CLASSES = BOCL (DISPLAY CLASSES, DO_CLASSES,AND_OP); /* Compute asses to display */ 24 
1832 ; M->MRBSO_CLASSBITS = DO_CLASSES; /* Remember classes to collect */ ry 
2d 
$i 
d 
2¢ 
26 
24 
. 24 
3 
4 
24 
24 
| 
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EXECUTE _REQUEST if-sEpo 4 02:15: VAX-11 PL/I 2.1273 Page 25 | XE 
vives ti -3FF= 138 98:18:83 ISKSVMSMASTER: CMONTOR- SRCJREQUEST.PLIc? 3), 0é 
1854 | /* d 
1 23 /* Given DO_CLASSES, execute do loop using INDEX builtin 4 
1856 /* to fill in the CCD (Current Class Descriptor) a | 4 
1857 | /* When do loop is finished, MRBSO_CLASSBITS, MRBSW.CLASSCT , 
1858 | /* NCASB-FIRSTC and MCASB-LASTC ( 
1859 | /* will SLL be established. . 
A or: 
1868 REVOCLSBITS = '0'B; /* Assume no classes at Rev Level 0 */ | 4 
186 CALL = CALC_LEN(M->MRB$O _CLASSBITS); /* Calc CDBS$W_BLKLEN field for each class */ 4 
1860 IF STATUS = NOT_SUCCESSFOL THEN RETURN(CALL); /* Return if error */ , 
1866 CLASS_NO = 0; /* Initialize class number */ , 
1867 DO I = 1 TO MAX_CLASS_NO + 1_ WHILE(CLASS_NO >= 0); /* Loop once for each possible class */ , 
1868 39 4 CLASS_NO = INDEX(DO_CLASSES,YES) = 1; /* Find next requested class number */ si 
34 $ IF CLASS NO >= 0 /* Only continue if a class was found */ y 
1871 5 CLASSES _VEC(CLASS_NO) = NO; /* Eliminate it from future consideration */ ef 
\87¢ 5 IF“REVLEVECS(CLASS_NO) = 0 /* If this class is at Rev Level 0, */ 2 
187 5 THEN REVOCB_VEC(CLASS_NO) = YES; /* then indicate so */ 24 
1874 5 CURR_CLASS_NO(IY = CLASS_NO; /* Store class_no in CCD table */ | 24 
1875 5 IF 17= 1 TREN MC->MCASB_FIRSTC = CLASS_NO; /* Mark first class requested */ 24 
1876 5 MC->MCASB_LASTC = CLASS_NO; /* Mark last class requested */ ( 
1877 5 M->MRBSW_CLASSCT = I; /* Keep track of class count */ 4 
1878 Ss «5 CDBPTR_COMP = CDBHEAD + (CDBSK_SIZE * CURR_CLASS_NO(I)); ( 
1879: 5 /* Compute current cdbptr ... */ ( 
1s ; san gma = TEMP_CDBPTR; /* ... and store it in CCD table */ | 5 
1882 4 END; rs 
188 ( 
1884 } /* 4 
1885 ; /* Now, given DISPLAY_CLASSES, do a similar loop as above to set up D_CCD, , 
1886 : 3 /* the display version of the CCD. When loop is finished, the array will ( 
Hr ‘ /* be established along with MCASW_DCLASSCT, the number of display classes. ; 
1889 , 
1890 DO_CLASSES = DISPLAY_CLASSES; /* Use DO_CLASSES vector */ $ 
1891 I1F~DO_CLASSES_VEC(PROCS CLSNO) /* If PROCESSES to be displayed, */ i 
4 THEN M->MRBSV_PROC_REG = YES; /* then indicate it was requested */ i 
189 ELSE M->MRBSV_PROC_REQ = NO; /* else indicate not */ ‘ 
1894 CLASS_NO = 0; /* Initialize class number */ 
1895 DO I = 1 TO MAX_CLASS_NO + 1  WHILE(CLASS_NO >= 0); /* Loop once for each possible class */ i 
1896 & CLASS_NO = INDEX(DO_CLASSES,YES) - 1; /* Find next requested class number */ i 
}} 244 ; uF CLASS NO >= 0 /* Only continue if a class was found */ $i 
1899 5 DO_CLASSES_VEC(CLASS_NO) = NO; /* Eliminate it from future consideration */ 

1900 5 ot CLASS_NO(I) = CLASS_NO; /* Store class_no in D_CCD table */ 

1901 2 MU->MCASW_DCCASSCT = I; /* Keep track Of class count */ 

1908 CDBPTR_COMP = CDBHEAD + (CDBSK_SIZE * D_CURR_CLASS_NO(I)); 

1903: 5§ /* Compute current cdbptr ... */ 

1904 5 D_CURR_CDBPTR(1) = TEMP_CDBPTR; /* ... and store it in D_CCD table */ 

129% ? nie ERD; 

ae 

1908 END; /* End of BEGIN-END group */ 

1909 2 


Dd 

EXECUTE_REQUEST 1 “stp 4 02:15: VAX=11 PL/I X2.1-273 Ext 
£55000 oo SE P=} 98d 98:10:88 ISKSVMSMASTER: CMONTOR.SRCJREQUEST.PLI; 139° 3) voi 
1910 ; /* 
bab i a ay oe ag defaults for FLUSH_INTERVAL, INTERVAL and VIEWING_TIME 
1318 { /* if Playback, divide file value for INTERVAL into requested value, and round 
1914 | /* requested value up to the next whole multiple of the file value. Store the 
1915 | /* multiple value in MCASL_INT_MULT. It will be et 4 trigger recording and , 
1S19 : /* display events. i 
meg 2 
1919 IF M->MRBSL_FLUSH = 0 /* If FLUSH never specified... * 
1381 THEN M-SMRBSL _FLUSH = FLUSH_INT_DEF AULT; /* normal default value */ 

1956 IF gn PLAYBACK /* Playback request */ 
195¢ IF ree. VIEWING TIME = 0 /* If VIEWING_TIME never aa «/ 

1925 T M-SMRBSL VIEWING. TIME = VIEWING_DEF AULT; /* ... then take default */ § 
1366 IF nant INTERVAL /* If INTERVAL never specified, 5 
1998 4 M->MRBSL_INTERVAL_= H=>MNR_HDRSL_INTERVAL; /* ... then use file value */ 2 
1929 ‘ EOD INT_MULT = 1; /* ... and multiple of 1 */ § 
1931 3 ELSE D /* INTERVAL TRTERVAL’S specified */ é 
1936 4 mce ~>MCASL_INT_MULT = DIVIDE (M->MRBSL_INTERVAL, H=>FNR HDRSL_INT r4 
1933 | 4 ivide spec 'd val by fi file val */ 2 
bt : IF renee” INTERVAL = (H=>MNR_HDRSL_INTERVAL : MC->MCAS INT_MULT) § 
1936 = 5 MC=>MCASL_INT MULT = MC->MCASL_INT MULT + 1; /* Round up if necessary */ é 
ba 14 : Ernest. INTERVAL = MC->MCASL_INT_AULT * H->MNR_HDRSL_INTERVAL; /* Shun interval too */ Si 
19394 END; : 
1940 3 END; : 
1941 2 
19h § ELSE DO; /* Live Foquest 's? «/ 

194 IF M=->MRBS$L_ NTERVAL = R /* If INTERVAL never specified... */ i 
1944 3 THEN IF aa yh LASS /* ALL class request */ 
1945 N ROSRRESL [NTERVAL = ALLCL_INT_DEFAULT; /* ALL class default value */ 2 
1946 ELSE IF M=->MRBS$V_SYSCLS /* SYSTEM class request */ 

1947 THEN N ROOARBSL INTERVAL = SYSCL_INT_DEFAULT; /* SYSTEM class default value «/ 
1948 3 ELSE M->MRBSL_INTERVAL = INTERVAL_BEFAULT; /* normal default value */ 
1949 ; IF M->MRBSL_VIEWING_TIME = 0 bs If VIEWING_TIME never Rants Bee «/ § 
1950 THEN M-SMRBSL VIEWING. TIME = M->MRBSL_INTERVAL; 4a whee to interval value */ 

1951 3 IF MLSARBSL INTERVAL <= M=>MRBSL FLUSH uegted | interval not ow than flush period? 

1936 THEN FLOSH_COLLS = DIVIDE (R*SMRBSL FLUSH, M->MRBSL_ INTERVAL; * Yes -- compute collections until flu 

195 ELSE FLUSH-COLLS = 1; /* -- fish on every collection */ 

1338 FLUSH_CTR = FLOSH_ COLLS; /* Set up down counter */ 

139 op 

1958 CALL CVT_TO_DELTA(M=>MRBSL_INTERVAL, INTERVAL DEL); /* Convert INTERVAL to delta time */ 

132) CALL CVT_~TO_DELTA(M->MRBSL_VIEWING_ TIME, VIEWING_ DEL); /* Convert VIEWING_TIME to delta time */ 


ee ee 
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1961 } /* 
1308 H * Establish defaults for BEGINNING and ENDING options 
1297 ; // 
1965 IF M->MRBSV_PLAYBACK 
18 THEN MC=>MCASQ_CURR_TIME = H=>MNR_HDRSQ_BEGINNING; /* If Playback, get current time from file */ 
1967 | /* If Live, MCASQ_CURR_TIME already contains */ 
1208 ' /* ... Current time from system */ 
1996 Is 
1971 | /* If user requested a past time for the BEGINNING option 
19% ' /* or defaulted, then replace his value with MCASQ_CURR_TIME. 
1975 ; /* Otherwise, indicate a future request. 
1978 | die: 
ire MC=>MCASV_FUTURE = QUAD _LT_QUAD(MC=->MCASQ_CURR_TIME,M->MRBS$Q_BEGINNING); /* MCASV_FUTURE gets YES or NO */ 
197 IF MC=>MCASV_FUTURE = 
1978 THEN M=>ARBSQ_BEGINNING = MC->MCASQ_CURR_TIME; /* If NO, give user current time */ 
1980 Is 
1981 } /s For PLAYBACK, verify ENDING option. If file value is 
1986 : /* non-zero, replace requested value with file value if 
1983 | /* requested value is 0 (never specified), or requested 
1984 ; /* value is larger (later) than file value. 
bs £4 : // 
1989 IF M->MRBSV_PLAYBACK 
1988 THEN IF~* QUAD _EQ_0(H=>MNR_HDRS$Q_ ENDING) 
1989 THEN TF GUAD_EQ_OTM->MRBS$Q_ENDING) 
1990 THEN M=>MRB$Q_ENDING = H=->MNR_HDRSQ ENDING; 
1991 $ ELSE IF QUAD _CT_QUAD(H->MNR_HBRSQ_ENDING,M->MRBSQ_ENDING) 
ib 4 THEN M=>MRBSQ_ENDING = H=>MNR_HDRSO_ENDING; 
90: 5 
; w 
ib a, : $ a Set indefinite end bit if ENDING option never specified. 
1999 i /* Also pay sanity check of BEGINNING and ENDING times. 
1998 } /* If BEGINNING not Less than ENDING, exit with error. 
ib : /«/ 
$01 IF QUAD_EQ_0(M->MRBSQ_ENDING) /* If ENDING never specified, */ 
¢ THER M=>MRBSV_INDEFEND = YES; /* ... call it indefinite */ 
it ELSE 1F QUAD _CT_QUAD(H->MRBSO_BEGINNING,M->ARBSO_ENDING) = NO /* If BEGINNING not Less than ENDING, */ 
005 CALL _MON_ERR(MNRS_BEGNLEND) ; /* Log the error */ 
2007 RETURN (HRS BEGHMLEND) ; /* ... and return with status */ 
008 82 . 


F 
EXECUTE_REQUEST 1 “stp 4 02:15: VAX=11 PL/I X2.1-273 Page XI 
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009 } /s | ! 
910 i /* Get information about the monitored system. 
Ot H /e/ 
O18 IF er /* PLAYBACK request */ 
015 CALL _READ_INPUT(NEXT_REC); /* Read system information record */ 
Big IF 4 V_EOF /* If end-of-file, */ 
018 CALL MON ERR(MNRS_PREMEOF); /* Can't find sys info record; log the error */ | 
Og 4 RETURN (ANRS_PREMEOF ); /* ... and return to caller */ 
920 4 END; : 
0 § TEMP_PTR = MC=>MCASA_ INPUT PTR; /* Establish ptr to sys info record */ | 
0 TEMP TYPE = UNSPEC(SYI_TYPE); /* Get sys info type into a byte for compare */ 
: ¢ IF TERE gf TR->ANRSVISB_TYPE = TEMP_TYPE /* If this record is not the sys info rec, */ ! 
026 4 CALL _MON_ERR(MNRS_INVINPFIL); /* Log an error */ $ 
, i 2 SE LURN CARRS. SOV LPF BL); /* ... and return to caller */ 3 
029 . 7 
030 ; /* 
031 ; /* Move entire sys info record to System Information Area 
O3 : /*/ 
034 SPTR=>MNR_SYISB_TYPE = TEMP_PTR->MNR_SYISB_ TYPE; /* Get SYI type code */ 2 
035 SPTR=>MNR_SYISW-FLAGS = TEMP_PTR->MNR_SYISQ FLAGS; /* Get all flags */ 2 
036 SPTR=>MNR_SYISB_MPCPUS = TEMP PTR->MNR SYISB_MPCPUS; /* Get number of sey. a/ 2 
| 2037 SPTR=>MNR-SYISW-MAXPRCCT = TEMP_PTR->MAR_SYISW_MAXPRCCT; /* Get MAXPRUCESSCNT SYSGEN parameter */ 21 
3038 SPTR->MNR-SYISQ-BOOTTIME = TEMP PTR->MNR-SYIS$Q_BOOTTIME; /* Get system boot time */ 21 
040 IF MNR_SYISK_NODENAME < MC->MCASL_INPUT_LEN /* If NODENAME field is defined for input file, */ 
2041 THEN SPTR->MNR_SYIST_NODENAME = TEMP PTR->MNR_SYIST_NODENAME; /* ... then pick it up from there */ 
2048 ELSE UNSPEC(SPTR->MNR_SYIST_NODENAME) = '0'B; 7* Otherwise, simply clear it */ 
044 IF MNR_SYISK_BALSETMEM < MC=->MCASL_INPUT_LEN /* If BALSETMEM field is defined for input file, */ 
045 THEN SPTR->MNR_SYISL_BALSETMEM = TEMP _PTR->MNR_SYISL_BALSETMEM; /* ... then pick it up from there */ 
oeo ELSE SPTR->MNR_SYISL_BALSETMEM = BALSETMEM_DEF; /® Otherwise, use a constant default value */ 
048 IF MNR_SYISK_MPWHILIM < MC->MCASL_INPUT_LEN /* If MPWHILIM field is defined for input file, */ 
049 THEN SPTR=>MNR_SYISL_MPWHILIM”= TEMP_PTR->MNR_SYISL_MPWHILIM; /* ... then pick it up from there */ 
$30 ELSE SPTR->MNR_SYISL_MPWHILIM = MPWHILIM_DEF; 7* Otherwise, use a constant default value */ 
52 IF MNR_SYISK_CPUTYPE < MC->MCASL_INPUT_LEN /* If CPUTYPE field is defined for input file, */ 
05 THEN SPTR->MNR_SYISL_CPUTYPE™= TEMP_PTR->MNR_SYISL_CPUTYPE; /* ... then pick it up from there */ 
oee ELSE SPTR=->MNR_SYISL_CPUTYPE = 0; /* Otherwise, simply clear */ 
B28 END; 
05 
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ELSE DO; 


SPTR=>MNR_SYISB_TYPE = UNSPEC(SYI_TYPE); 
SPTR=>MNR_SYISV-RESERVED] = ‘O'B; 
SPTR->MNR-SYISV-FILLER = '0'B; 
IF MPCHECR() 

THEN SPTR=>MNR_SYISB_MPCPUS = 2; 

ELSE SPTR->MNR-SYISB-MPCPUS = 1; 
SPTR=>MNR_SYI$W_MARPRCCT-= SGNSGW_MAXPRCCT; 
CALL_= COMPUTE Bort 


IF STATUS = “WOT suc 
THEN 


CALL MON_ERR(MNRS eqwem. CALL); 
ReTUanenns UNEXPERR) 


CALL = CLUS_NET_INFO(); 
IF STATUS ="NOT~SUCCESSFUL 
THEN D0; 
CALL MON_ERR(MNRS UNEXPERR, CALL); 
RETURN CHARS. UNEXPERR 
END; 
SPTR->MNR_SYISL_BALSETMEM = PFNSGL_PHYPGCNT; 
SPTR->MNR~SYISL-MPWHILIM = MPWSGW_RILIM: 
END; 
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LIV 
Fil 

/* Get s¥1 type code */ 
Clear reortvee flag... “, 

/* ... and all ae used ont 

/* tileferpesel ng. ae fey? «/ 

/* Yes -- 

fs Mee aabbRbcl sr 

/* Get MAXPROCESSCNT SYSGEN parameter */ 

/* ges systes time at boot into MNR_SYI$Q_BOOTTIME */ 


/* Yes -- log the error */ 
/* ... and return with status */ 


/* fey c\yeter and network info (incl CPU type) into SYI */ 


/* Failed? * 
/* Yes -- log the error */ 
/* ... and return with status */ 


/* Get balance s $ poner size (in pages) «/ 
/* Get MPW_HILIMI YSGEN parameter * 
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equest */ 
the System Information Area from the running system 


| 
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8 H /* 

' /* If PLAYBACK, read first class record from input file 

088 ; /* to prime the pump." | 

089 ; /*/ 

090 

$93 IF Raney PATON 

09 CALL READ fPyt SIP FO CLASS) 3 /* Set up first class record for COLLECTION_EVENT rtn */ 

Be IF 4 a V_EOF /* If end-of-file, */ 

096 4 CALL _MON_ERR(MNRS_PREMEOF); /* Log the error */ 

09 4 RETURN (ANRS_PREMEOF ); /* ... and return to caller */ 

4 4 END; 

100 } /* 

101 | /* If a future playback request, read input file, skipping 

136 : /* ast class records until file is positioned to requested 

103 } /* egin point. Examine file time value only for the first 

104 } /* class record within an interval, to ensure that the request 

105 } /* will begin at an interval Seuneery If end-of-file is hit 

198 1 oes during this operation, terminate the request with an error. 

108 | 

109 IF MC->MCASV_FUTURE 

110 THEN DO; 

111 & F = MC=>MCASA_INPUT_PTR; 

1g 4 DO WHILE (* MC->MCASV_EOF & QUAD_LT_QUAD(F->MNR_CLS$Q_STAMP,M->MRBS$Q_BEGINNING) ); 

| 3 READ FILECINPUT_FILE) INTOCINPUT_DATA); /* Read rec following first class record */ 

BY ; DO WHILE (* MC=->MCASV_EOF & F=->MNR_CLSSB_TYPE “= MC=->MCASB_FIRSTC); 

i ? READ FILECINPUT_FILE) INTOCINPUT_DATA); /* Read until first class found again */ 

i 88 

1 : 4 IF MC->MCASV_EOF /* EOF => bad beginning time */ 

1 4 THEN DO; 

124 5 CALL MON_ERR(MNR$_BEGRAN) ; /* Log the error */ 

; é ; BE TURN CARRS BEGRAR) ; /* ... and return with status */ 

1 i END; / 

18 

; SWRA, DUP UT LOM = LENGTH(INPUT_DATA); /* Establish Length of input */ 

131 , 

1 § RE TURN(NORMAL ) ; /* Return to caller */ 

133 END REQUEST_INIT; 


yee tt ine 1g-sfe-1964 98:18:88 | YaNSUmsmaster: CaowTon- secaREQuEsT PL et (do) 


a 
| 
i 1 RECORD_INIT: Procedure Returns(fixed binary(31)); 
137 | /* 
1 | : [eee 
139 ; /* 
109 : /* FUNCTIONAL DESCRIPTION: 
141 ; /* 
AF ee RECORD_INIT 
138 . Called by EXECUTE_REQUEST to open the output (recording) file. | 
146 /* INPUTS: 
147 |} /* 
123 : /* None 
149 ; /* 
; : ' . OUTPUTS: 
138 /* None 
1 H /* 
154 | /* ROUTINE VALUE: | 
155 ; /s 
156 | /* SS$_NORMAL | 
157 ; /* 
158 ; /t-- 
Fe : /e/ 
103 ' . ' Se eee een ree ewe Een Eee eB OeO een ewe nw E we Een wwe Be eee mes erm ew eer een owe + | 
188 /* i 
164 | /* : LOCAL STORAGE } 
165 /* ; i 
166 ; /* |leoeeeeeooeeoeeoeeeesooeeoeeoesoeeeeeseeeeeeesoeesoesooeeesessesooesessooeosoeeeseseesoesesca * 
167 } /*/ 
168 
182 ZINCLUDE PLI_FILE_DISPLAY; 
09 Declare | 
10 RECORD_EXPTR POINTER, 
11 POINTER 
1g 01 TEMP BASED(TEMP PTR) 
1 L FIXED BINARY(15), | 
14 oc FIXED BINARY(15), 
15 8 POINTER, 
\¢ TEMP_STR CHAR(TEMP.L) BASED(TEMP.A); 
18 RECCT = 0; /* Init count of records written */ 
1 M->MRBSV_REC_CL_REQ = YES; /* Indicate record cleanup is required */ | 
0 CLOSE FICE(RECORD FILE); /* Make sure file is closed before opening «/ 
1 _PTR = M->MRBSA_RECORD; /* Set up ptr to output file name string */ | 
§ OPEN"FILE(RECORD_FICE) OUTPUT TITLE (TEMP_STR) /* Open the output recording file */ | 
? NVIR ibe RECORD SIZE (RAK REC SIZE), /* such that others may read it */ | 
5 ALLOCATE PLI_FILE_ DISPLAY SET (RECORD_EXPTR); /* Allocate space for the DISPLAY output */ 
$ CALL DISPLAY” (RECORD _FILE,RECORD EXPTR->PLI_FILE_DISPLAY); /* Get the expanded file name */ ; 
< RECORD _STR = RECORD_EXPTR=>EXPANDED_TITLE; /* Move the expanded string into global area for the module | 
328 FREE RECORD_EXPTR->PLI_FILE_DISPLAY; /* Release the storage area since the expanded string has be | 
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ai ERD RECORD ANI 


TS ae TE ee 


MONITOR REQUEST: Procedure Returns(Fixed Binary(31)); 


EXECUTE REQUEST 


Execute first collection event. If Live, collection events will 
continue at AST level. 


If “Nae FIRSTC = PROCS_CLSNO & M->MRBSV_PLAYBACK) /* If not playback of PROCESSES */ 


Ooo Mw 
~ss 
eee 


1 
§ CALL = SYSSDCLAST(COLLECTION EVENT,,); . then execute iyret collection event */ 
Z IF o18 tN 00; NOT_SUCCESSFUL ie SOCLAST failure? */ 
5 4 CALL MON _ERR(MNRS_SSERROR,CALL,DCLAST_STR); /* Yes == log the error */ 
] ? RETURN RNCARS $_SSERROR) ; “/* ... and return with status */ 
8 END; z 
6 s 
51: /* Main qenttertns loop. For playback, alternate collection and display events. 
26 H /* For Live. sine y issue display events in a loop while collection events loop 
53} /* at AST level. 
$e H // 
56 DO WHILE re ere = NO); /* Loop while collection has not ended */ 
$25 IF Ener AYBACK /* If this is a PLAYBACK request, */ 
38 4 CALL = SYSS$DCLAST(COLLECTION EVENT,.); /* ... then execute a collection event */ 
361 ? IF STATUS = NOT_SUCCESSFUL /* SDCLAST failure? */ 
; CALL MON ERR(MNRS$_SSERROR,CALL,DCLAST_STR); /* Yes -- log the error */ 
3e4 RETURN CARRS. SSERROR); “/* ... and return with status */ 
5 4 IF MC->MCASY: -MULTFND & M->MRBSV_DISPLAY /* If multiple found and displa fe uested, */ 
366 4 & COLL_STATUS = NORMAL /* ... and collection_event finished OK, «/ 
36 4 THEN DO; 
8 3 CALL = DISPLAY EVENT(); /* Execute a a display event */ 
i IF STATUS = NOT_ SUCCESSFUL THEN RETURN(CALL); /* Return if bad Stes «/ 
He 2 IF COLLENDED = NO & M->MRBSV_DISP_TO_FILE = NO /* If gett collecting, and displaying to SYSSOUTPU 
3§ THEN CALL = SYSSWFLOR(O,BISP Ev _FLAG_ M i REFR_EV_F 
7 H /*”... then “uate te? viewing time or refresh request */ 
75 END; 
8 4 END; 
78 : ELSE DO; /* This is a LIVE request */ 
380 ? IF HO PMRBSY DISPLAY /* If display requested */ 
1 CALL = DISPLAY_EVENT() /* ... then execute a display request */ 
i asta TUS = NOT_ SUCCESSFUL THEN RETURN(CALL); /* Return if bad status */ 
4 o 
5 4 IF COL LENpE? * /t Wait -- If no display, will wait whole request, */ 
38 ? THEN CAL = OVSSuFLOR(O. DISP_EV_FLAG_M i REFR ih FLAG_M); 
4 END; /* ... while collection continues at AST level */ 
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$388 3 END; 


EXECUTE REQUEST 


/t 
oes End of main monitoring loop 


RETURN(COLL_STATUS) ; 
END MONI TOR_REQUEST; 


BSBVERRaN= 
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/* Return with status from COLLECTION_EVENT */ 


EXECUTE REQUEST 
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r : 1 REQUEST_SUMMARY: Procedure Returns(Fixed Binary(31)); 

402 | /* 

403 ; /* Since the MONITOR request ® has terminated Concept fe a ott ae 

4 ' /* certain CLEANUP routin ay he be executed now. Sinc 

405 } /* output uses the same SYSSOUTPUT stream through the. StRPKG. os 

$38 { /* DISPLAY output, DISPLAY_CLEANUP MUST be done now. 

a 

409 IF eine! RECORD & Sy REC_CL_REQ /* If this is a RECORD request AND cleanup required, * 
219 HEN CACL = RECOR NUP() ;~ /* .,. then do record cleanup */ 

41 IF M->MRBSV PLAYBACK “ats SARBSV. INP_ CL_REQ /« If this" is a PLAY my re ees AND cleanup ert 
“lg THEN CACL = INPUT _CLEANUP()> Se aes n do o*aneeue fe «/ 

41 IF N->MRBSY DISPLAY &"M->MRBSV bis. CL_REQ /+ if ehiee is Y Fadel AND cleanup required, * 
a12 HEN CACL = DISPLAY_CLEANUP() /* ... then i ¢tatis cleanup */ 

218 CALL = SUMMARY INIT() /* Perform summary init */ 

ai? IF ST TATUS NOT_ SUCCESSFUL /* Failed? */ 

419 CALL MON _ERR(MNRS DISPERR, CALL); /* Yes -- log the error */ 

? Es DISPERR); /* ... and return with status */ 

4 § CALL = SUMMARY NT(); /* Perform summarization */ 

4 IF STATUS = NOT OE CCESSFUL /* If failed, then return with status */ 

re : THEN RETURNTCALLD : 

? § RE TURN(NORMAL ) ; /* Return to caller */ 

428 END REQUEST_SUMMARY; 

429 


|| 
| 
! 
: 
| 
: 
: 


a 

16-SEP-1984 02:15: 
ScSEPcHORE 92:18:8 
DISPLAY_EVENT: Procedure Returns(fixed binary(31)); 


/* 
{ret 


® 

/* FUNCTIONAL DESCRIPTION: 
® 

/* DISPLAY _EVENT 


/* Called by EXECUTE_REQUEST to perform a single display event. 
/* ne disp my syent consists of creating and writing a screen 

/* mage, including template if neceseert. for a single class. 

/* The current class to be alsptoves is indicated within the 

/* DISPLAY_EVENT routine by the CURR_DCLASS variable. CURR_DCLASS 
/* is updated on each entry to DISPLAY_EVENT to indicate the 

/* next class in the List of reqvestes classes. This causes the 
/* displays to cycle. DISPLAY cVENT is entered once per viewing 
interval, or whenever a CTRL-W (screen refresh) is received. 


/* INPUTS: 
® 
/* None 
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: /* OUTPUTS: 
/t 
/* None 
/* 
: oe ROUTINE VALUE: 
® 
24 /* SS$_NORMAL, or failing MONITOR status code. 
2460 /* 
2461 /t-- 
246 /*/ 
246 
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| 


EX 
V 


C200 00000000 


EXECUTE_REQUEST 
FOE -00N" 


466 } /* 
$32 : / 

; * : 
te? H /* : 
468 ; /* : 
469 | /* 

470 | // 
471 
47 Declare 
47 ADV_HOM_ITEM 
474 
475 Declare 
476 EV_FLAGS 
477 SSS_WASCLR 
478 
Declare 
2 cD 
2 COLL_TIME 
2 TEMP 
3 Declare 
1 TIME_PARMS 
2 2 DATE_LEN 
2 DATE_PTR 
§ TIME_LEN 
§ 2 TIME_PTR 
2 DATE_OUT 
§ TIME_OUT 
2 1 TIME_STR 
2 L 
§ Ss 
2 1 SYS_TIME_STR 
2 - < 
§ 2s 
2 Declare 
2 DATA_STR 
2 FAOSTK 
3 Declare 
§ VIDEO_IND 


1-8 9 
SEP=- 
“SEP- 


/* ' ececeeceecescocs eeeeeeeeeeceecosees eceeeeeesesososce 


LOCAL STORAGE 


D 
Bs GLOBALREF VALUE; 


STATIC, 


NARY(31) INIT(11), 
NARY(31) INIT(8), 


~~ ss se 


INARY(7), 


CHAR(1) BASED(D 7 meneee FAOCTR), 
FIXED BINARY ( 31) LREF; 


BIT(1) ALIGNED; 
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MACRO-32 rtn to advance homog class to next displ | 


Cluster 0 event flags */ 
“Event flag clear’ return status */ 


CDB for current display class */ 
Time stamp from most recent collection «/ 
Temporary scratch ‘‘register'’ */ 


FAOL parms for date and time Lines */ 
Length of date string */ 

Pointer to date string */ 

Length of time string */ 

Pointer to time string */ 


Date output string from ASCTIM */ 
Time output string from ASCTIM */ 


Date/time FAO control string */ 
Length */ 
First character of string */ 


SYSTEM + nese date/time FAO control string */ 


Length * 
First ane of string */ 


First char of FAO ctr str for display data */ 
First longword of FAOL parm List */ 


Video terminal indicator */ 


Sx 


8 
8 
8 
8 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
29 
9 
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| 


509 CALL_= SYSSREADEF (DISP_EV_FLAG,EV_FLAGS); /* Examine state of display event flag */ 
219 IF g NOT_SUCCESSFUC /* Failed? */ 
21§ CALL _MON_ERR(MNRS SSERROR,CALL,READEF_STR); /* Yes -- log the error */ 
514 RETURN CHARS _SSERROR) ; /* ... and return with status */ | 
° | 
15 | 
218 IF CALL = SS$_WASCLR /* If Stepley event ine was clear, */ 
51 THEN DO; /* (Assume this is a refresh event) */ 
518 CALL = SYSSCLREF(REFR_EV_FLAG); /* Clear refresh event flag */ 
519 MC->MCASV_REFRESH = YES; /* ,.. and indicate this is a refresh display event 
: IF g tht NOT_SUCCESSFUL /* SYSSCLREF service call failed? */ 
5 ¢ 4 CALL MON _ERR(MNRS$_SSERROR,CALL,CLREF_STR); /* Yes -- log the error */ 
2 ? 2 BL TURN CHARS SSERROR) ; /* ... and return with status */ 
585 3 END; 
2527 $ IF CURR_DCLASS = 0 & (DISPLAYING = NO | MC=>MCASV_REFRESH = YES) /* If class data not yet oteptayes. AND */ 
2528 | 2 /* ... first time thru or refresh requested */ 
5263 THEN DO; 
2530 VISEO_IND = MC->MCASV_VIDEO; /*,...Get Video indicator */ 
2531 CALL = DISP_TEMPLATE(B_CURR_CDBPTR(1),VIDEO_IND); /* ... display a template for the first class, */ 
S236 e 2 /* go rere inp output to screen if video terminal */ 
$23 ; DISPLAYING = YES; /* Indicate that display output has begun */ 
534 IF STATUS = NOT_ SUCCESSFUL THEN RETURN (CALL); /* Check call */ 
Seep 3 END; 
2537 2 IF CURR_DCLASS = MC->MCASW_DCLASSCT /* If did final class on previous entry, */ 
2538 § THER TEMP = 1; /* ... then start over at first one */ 
$272 ELSE TEMP = CURR_DCLASS + 1; /* ... otherwise, advance to next class */ 
540 § IF MC=->MCASL_COLLCNT >= 2 | D_CURR_CLASS_NOC(TEMP) = PROCS_CLSNO /* If at least 2 collections have passed OR ... */ 
541 ; /* ... this is the PROCESSES class, */ 
20g ¢ THEN DO; 
54 IF * REPT_TOP /* If not the special TOP repeat, */ 
2544 3 THEN TF ADVANCE _DCLASS() = YES /* Test if display Gees should be advanced */ 
336 ; THEN CORR_DCLASS = TEMP; /* ... and advance it accordingly */ 
ts 3 DCDB = D_CURR_CDBPTR(CURR_DCLASS); /* Get CDB for current display class */ 
549 IF MC=>MCASL_DISPCNT “= 0 & (MC->MCASV_REFRESH = YES | MC->MCASW_DCLASSCT “= 1) & “* REPT_TOP 
550 : /* If template not printed above, AND ... */ 
551 } /* ... refresh requested OR more than 1 class, */ 
226 : /* ... AND not the special TOP repeat */ 
55 3 THEN DO; 
554 & CALL = DISP_TEMPLATE(DCDB,NO); /* Display template */ 
$56 4 IF STATUS ="NOT_SUCCESSFUL THEN RETURN (CALL); /* Check call */ 
55 2 
558 REPT_TOP = NO; /* Eliminate future TOP repeat */ 
559 IF MU->MCASL_DISPCNT = 0 & D_CURR_CLASS_NO(CURR_DCLASS) = PROCS_CLSNO & DCDB->CDBSB_ST “= REG_PROC 
360 THEN REPT_TOP = YES; /* If 1st TOP display, allow'a 2nd conSec TOP */ 
268 IF CTRLCZ_HIT = NO | M->MRBSV_DISP_TO_FILE THEN /* If CTRL-C and Z not hit OR dleplaying to a file, 
56 : /* ... then prepare to display actual data */ 
564 4 IF DCDB->CDB$V_HOMOG THEN CALL ADV_HOM_ITEM(DCDB); /* If homog class, advance to next display item */ 
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LE_AST); /* Disable collection events while filling display b 
COB COLL TIME) ; 7e FALL display buffer for this class */ 


<m 
= 


nm 
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then to display the actual data itself. 


é 
: 
3 


/* Re-enable collection events */ 
Call DISPLAY_PUT to first yn tg Rl date and time of the most recent collection, 
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Address of date string into FAOL List */ 
Address of time arr ing into FAOL List */ 


it yet */ 
If special SYSTEM screen, issue it one way, */ 


Length of time control string */ 
Send date and time to SCRPKG */ 


pthory tee issue it another way */ 
ot hes control string */ 


Send dete. akg time to SCRPKG */ 


Is this a ptencers class? */ 


Check type of standard class */ 

pow oem stenaere Class */ 
Fay data display Lines to SCRPKG */ 
heck status */ 


Heterogeneous , syneerd Class */ 


CALL = SYSSASCTIM(,DATE_OUT,COLL_TIME,0); /* Get ASCII date */ 
CALL = SYSSASCTIM(, TIMEOUT, COLL_TIME,1); /* Get ASCII time */ 
DATE_PTR = ADDR(DATE_OUT); /* 
TIME-PTR = ADDR(TIME-OUT); /* 
FAOL REQUESTED = YES; /* Run it through FAO 
OUTP Steg gl = NO; /* ... but don't output 
IF DEDB->CDB VSYSCLS & DCDB=>CDB$B_ST “= ALL_STAT /* 
Put_LEN = SYS_TIME_S /* 
CALC = DISPLAY DUTtDPUT iLaGs. PUT_LEN,SYS -TIME, STR. .S,TIME_PARMS) 
® 
END; 
ELSE DO; is 
PUT_LEN = TIME_S 
CALC = DISPLAY ~puT ibbut _FLAGS,PUT_LEN, TIME st, S, vines PARM 
END; 
IF STATUS = NOT_SUCCESSFUL THEN RETURN(CALL); /* Check status */ 
/* 
/* Put actual display data 
/*/ 
IF DCDB->CDB$V_STD /* 
/* Standard Class */ 
IF DCDB->CDBSV _HOMOG /* 
THEN DO; /* 
CALL = DISPLAY_HOMOG(DCDB); /* 
IFS STATUS = NOT_SUCCESSFUL THEN RETURNCCALL); 
ELSE DO; /* 
FAOL_REQUESTED = YES; is Run it through 
DUTPLREQUESTED = YES; * Output it «/ 
CALL™= DISPLAY_PUT(DPUT_FLAGS, DcpB->cbase” FROCTR: DATA STR,FAOSTK); 


® Send display data’ to SCRPKG */ 


— = NOT_SUCCESSFUL THEN RETURN(CALL); 
/* Non-standard Class (PROCESSES) */ 


LSE 
IF Ore epee. ST = REG_PROC 


/* 


CALL = DISPLAY PROCS(DCDB,COLL, TIME) 
Ir STATUS = NOT_SUCCESSFUL THEN RET URN(CALL); 
ELSE DO; “ 
CALL = DISPLAY _TOP(DCDB); 
END STATUS = NOT_SUCCESSFUL THEN RETURNCCALL) : 
NC=>MCASL_ DISPCNT = NR >MCASL _DISPCNT + 1; /* 
END; 
IF MC=>MCASV_REFRESH THEN CALL = SYSSCANTIM(DISP_EV_FLAG,); js 


IF COLLENDED = NO & * (M->MRBSV_PLAYBACK & M->MRBSV_DISP_TO_ PILED 


“ «++ AND not playing 


* Check status */ 


Regular PROCESSES display */ 
/* Send process display Lines to SCRPKG */ 
ie Check status */ 
= tee disp) ay «/ 
¢.*9p protete di splay Lines to SCRPKG */ 
heck status */ 


Count this display event */ 
If a refresh event, cancel ‘regular’ 


If collection still going. erie ‘i 
ack to ° 


display time 
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THEN DO; 
CALL _= Sysese tine’ bist FV. FLAG, VIEWING _DEL,,DISP_EV_ FLAG); ets Set Thee when ready to display again */ 
IF otAs NOT_SUCCESS Failed? 
CALL _MON_ERR(MNRS SSERROR,CALL,SETIMR_STR);  /* Yes == log the error */ 
A alte SSERROR); /* ... and return with status */ 
END; 
MC=>MCASV_REFRESH = NO; /* Indicate not a refresh display event for next tim 
RETURN(NORMAL ) ; 
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ADVANCE _DCLASS: Procedure Returns(Bit(1) aligned); /* Test if display class should be advanced */ 


/* 

[eee 

/* 

“ FUNCTIONAL DESCRIPTION: 

. ADVANCE _DCLASS 

/* This routine checks whether the current display class 

/* (as indicated in the variable CURR_DCLASS) should be 

/* advanced to the next requested class, or left where 

/* it is. Normally, the class is advanced, but in the case 

/* where the current class is homogeneous and not yet at 

se the end of its item List, the class is not advanced. 

af 

/* INPUTS: 

/e 

/* None 

/t 

/* OUTPUTS: 

/* 

/* None 

jt 

. ROUTINE VALUE: 

/* YES if the current display class should be advanced. 

/* NO otherwise 

/* 

[t-- 

/*/ 

/t 

/* ' ee ee ee ee ee ee ee ee ee ee eS ee en an he ins + 

/* : : 

/* : LOCAL STORAGE ; 

/* : : 

/e ' SH ese eco er ene eee ence eumesr econ eo een en nc eao es eaew een e erence ere eee ewe ees eee een ence + 

// 

Declare 

ADVANCE_CLASS BIT(1) ALIGNED, /* YES => advance display class */ 
POINTER; /* CDB pointer for most recent class */ 

ADVANCE _CLASS = YES; /* Assume class will be advanced */ 

IF ashe *= 0 /* If not the first display event, */ 
ChB = D_CURR CDBPTR(CURR_DCLASS); /* get CDB addr for most recent display event */ 
IF RCDB-SCDBST /* check if it is a homogeneous class * 

THEN IF RCBB->CDBSA_CDX->CDX$B_IDISCONSEC < RCDB->CDBSA_CDX->CDXSB_IDIS<1 /* ALL items displayed? */ 

= THEN ADVANTE_CLASS = RO; /* No == don't advance */ 

RE TURN(ADVANCE _CLASS); /* Return with indicator */ 


END ADVANCE _DCLASS; 
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7 
grat ; END DISPLAY_EVENT; 


9 
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Sx 


EXECUTE REQUEST 


d 
? SUMMARY _EVENT: Procedure Returns(fixed binary(31)); r 
705 } fe , 
f ] — r 
: ° 
708 J FUNCTIONAL DESCRIPTION: r 
210 ys SUMMARY EVENT ry 
712 } /* Called by EXECUTE _REQUEST once per request to create a > 
7135} /* puanery ile containing a screen image for each of the 
716 | /* requested classes. 
715 } /* 
rig H /* INPUTS: 
717 ; /* 
718 : /* None 
719 | /* 
720 } /* OUTPUTS: 
721 } /* 
7 § H /* None 
725 ; fe 
f ¢ ' ~ ROUTINE VALUE: 
; a 
f § H SS$_NORMAL, or failing MONITOR status code. 
; fa 
7 : : [t-- 
g ' /*/ 
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731 | /* 
733 } /* : ’ 
734 ; /* : LOCAL STORAGE ; 
735 : /* : ; 
7 } /* ‘ en oe Se Se SH OM SEM ONE EB EEC OBE EBB TeE DOE Se DEE eee sen wrrn eZee Dems eo ae weEmwe $ 
737 | /*/ 
139 
7 Declare 
740 SUMMARY _TOP ENTRY (POINTER) /* MACRO-32 rtn to set up for TOP summary */ 
741 RETURNS (FIXED BINARY(31)), 
ADV_HOM_ITEM ENTRY (POINTER); /* MACRO=-32 rtn to advance homog class to next displ 
744 Declare 
745 POINTER STATIC /* COB for current display class */ 
a COLL _TIME BIT(64) ALIGNED STATIC /* Time stamp from most recent collection */ 
4 Declare 
UMM_PARMS STATIC * FAOL parms for summary beg and eng Gotg/t tase «/ 
BEG_LEN FIXED BINARY(31) INIT(20) /* Length of beginning date/time string */ 
BEG_PTR POINTER /* Pointer fo beginning gezert ine eerie «/ 
END_LEN FIXED BINARY(31) INIT(20) /* Length of ending date/time string */ 
END_PTR POINTER, * Pointer to ending date/time string */ 
EG our seed tf STATIC, /* B Beq date/time output string from ASCTIM */ 
D_OUT CHAR( STATIC, /* End date/time output string from ASCTIM */ 
SUMML INE _STR ETE /* pamnery date/time FAO control string */ 
§ L FIXED BINARY(7), /* Length * 
$s CHAR(1), /* First character of string */ 
SYS_SUMMLINE_STR GLOBA Ener. /* Summary date/time FAO control string for SYSTEM c 
§ y FIXED BINARY(7) /* Length */ 
$s CHAR(1); /* First character of string */ 
Declare 
DATA_STR CHAR(1) BASED(D ig Tote FAOCTR), /* First char of FAO ctr str for display data */ 
FAOSTK FIXED BINARY ( cst ) GLOBALREF; /* First longword of FAOL parm List */ 
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DO CURR_DCLASS = 1 TO MC->MCASW DCLASSCT /* Loop once for each requested class */ 


770 CL 
ag WHILE (MC=>MCASL_COLLCNT >= 2); /* ... but only if at least 2 collections */ 
ae DCDB = D_CURR coor Te {cuRa _DCLASS); /* Get COB for current display class «/ 
774 CALL = DISP_ TEMPLATE (DCDB;NO) ; /* Send template to SCRPKG, but don't output yet */ 
775 IF STATUS = NOT Oceessrur NTHEN RETURN (CALL); /* Check call */ 
ure IF foc uBR, f CLASS =MONtu . ee base? = PROCS_CLS SNO /* If PROCESSES Class with TOP screen, */ 
re ; (oc beestpeeO SYSCLS es ~DCDB->CDBSB_ ST *= ALL_STAT) /* ... OR SYSTEM class with single stat, */ 
f : THEN CALL = SUMMARY_TOP(DCDB); /* ... then do TOP setup */ 
ree IF bce. >cpesy. HOMOG /* If homogeneous class, */ 
re 4 DCDB->CDB$A_CDX=>CDX$B_IDISCONSEC = /* Init consec display item number */ 
f 5 4 dO WHILE CDCDS->CDBSA COXSSCDNSB. TDISCONSEC < DCDB->CDBSA. CDX=>CDX$B_IDISCT); 
reS A CALL ADV HOM JTEACoCRO) 3 /* Advance to next display item */ 
788 2 CALL _= SOMM_ONE_CLASS(); /* Summarize once for each item */ 
789 IF STATUS = “NOT? SUC CCESSFUL THEN RETURN (CALL); /* Check call * 
790 5 END; 
4 END: 
: ELSE DO; /* Heterogeneous class or PROCESSES «/ 
4 CALL = =_SUMM_ ONE_CLASS(); /* Only need to galt once */ 
: sr Ttas © “NOT_SU beeesséuL THEN RETURN (CALL); /* Check call */ 
: END; 
3 RE TURN(NORMAL) ; - /* Return */ 
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§ SUMM_ONE_CLASS: Procedure Returns(fixed binary(31)); 
} /* 
§ |} /a++ 
} /* 
a FUNCTIONAL DESCRIPTION: 
03 is SUMM_ONE_CLASS 
11 /* Called by SUMMARY_EVENT to put screen images to the 
\§ ' /* summary file for a single class. for heterogeneous 
13} /* classes, a single screen image is required. For 
14} /* other classes, multiple screen images may be 
815 } /* required. 
sig { /* 
817 | /* INPUTS: 
818 ; /* 
819 ; /* None 
820 ; /* 
821 ; /* OUTPUTS: 
8 ¢ H /* 
823 ; /* None 
824 ; /* 
; 5 . ROUTINE VALUE: 
; ; SS$_NORMAL, or failing MONITOR status code. 
B39 ' 3 jeee 
aa /«/ 
31 3 
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CALL = FILL_DISP_BUFF(DCDB,COLL_TIME); 


Call BISPy AY PUT to first Slept ey ter summary 
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/* Fill display buffer for this class */ 


time range, 


then to display the actual data itself. 

CALL = SYSSASCTIM(,BEG_OUT ,M->MRBSO BEG IINING.0) 3 /* Get ASCI beginnin time */ 

CALL = SYSSASCTIM(,END OUT,COLL_TIME,0); /* Get ASCII ending time */ 

BEG_PTR = ADDR(BEG_OUT); /* Address of beg string into FAOL List */ 

END PTR = ADDR(END OUT); /* Address of end string into FAOL List */ 

FAOC_REQUESTED = YES; /* Run it through FAOL */ 

OUTP_REQUESTED = NO; /* ... but don't output it yet */ 

IF OEDe>CDBSV_SYSCLS & DCDB->CDBSB_ST “= ALL_STAT /* If special SYSTEM screen, issue it a special way, 
PUT_LEN = SYS_SUMMLINE_STR.L; /* Length of SYSTEM guanery control string */ 
cALE = DISPLAY_PUI (DPUT_FLAGS, PUT_LEN, SYS_SUMML INE STR.S,SUMM_PARMS) ; 
= /« Send summary Line to SCRPKG */ 

ELSE DO; /* else issue it the normal way */ 
PUT_LEN = SUMMLINE th of summary control string */ 


END; 
IF STATUS = NOT_SUCCESSFUL THEN RETURN(CALL); 
Put actual display data 


IF ss ll 
IF DCDB->CDBSV_HOMOG 
THEN DO; 


CALL = DISPLAY_HOMOG(DCDB); 

IF STATUS = NOT_SUCCESSFUL 
ELSE DO; 

FAOL_REQUESTED = YES; 

OUTP"REQUESTED = YES; 

CALL7= DISPLAY_PUT(D 

IF STATUS = NOT_SUCCESSFUL 

END; 


ELSE 
IF DCDB->CDB$B_ST = REG_PROC 
THEN DO; 


CALL = DISPLAY_PROCS(DCDB, 
If STATUS = NOT_SUCCESSFUL 
ELSE DO; 
CALL = DISPLAY_TOP(DCDB); 

IF STATUS = NOT_SUCCESSFUL 


C 


L STR.L; {+ Leng 
CALC = DISPLAY_PUTTDPUT_FLAGS,PUT_LEN, SUMMLINE_STR.S,SUMM_PARMS) 


7* Send summary Line to SCRPKG */ 
/* Check status */ 


/* Is this a standard class? */ 

/* Standard Class */ 

/« Check type of standard class */ 

/* Homogeneous Standard Class */ 

/* Send homog data display lines to SCRPKG */ 
THEN RETURN(CALL); /* Check status */ 


/* Heterogeneous Standard Class */ 
a Run it through FAOL */ 


® puseus t now */ 
PUT_FLAGS,DCDB->CDBSL_F OCTR,DATA_STR,FAOSTK); 


/* Sénd display data to SCRPKG */ 
THEN RETURN(CALL); /* Check status */ 


/* Non-standard Class (PROCESSES) */ 


/* Regular PROCESSES display */ 
OLL_TIME); * Send process display Lines to SCRPKG */ 
THER RETURN(CALL); /* Check status */ 


/* TOP PROCESSES display */ 
/* Send top process display lines to SCRPKG */ 
THEN RETURN(CALL); /* Check status */ 


ox 
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RETURN(NORMAL) ; 
END SUMM_ONE_CLASS; 
SUMMARY_EVENT; 
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SAVE _SUM_BUFFS: Procedure Returns (Fixed Binary(31)); 


/* Save SUM buffers into M.F. 
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7 
IREQUEST.PLIZ4 (20) 


Summary Buffer */ 


/* ... for all classes for the current input file «/ 


/* FUNCTIONAL DESCRIPTION: 


SAVE _SUM_BUFFS 


Called by EXECUTE REQUEST once per request to save the 
SUM buffers of all classes into their respective ful ti File 
Summary Blocks. 


* IMPLICIT INPUTS: 


MFSPTR == Pointer to MFS (Multi-File Summary Block) 


MFSS$B_CUR_COL == column number for column (on m.f. summary report) into which the 


data from the SUM buffers Witt be stored. 


DISPLAY_CLASSES -=- 128-bit git, Be classes to be summarized (excludes STATES, MODES 


and PROC 


* OUTPUTS: 


None 


* ROUTINE VALUE: 


SSS_NORMAL, or failing MONITOR status code. 


SES if they are present only in support of SYSTEM) . 
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} 
D 10 | 
EXECUTE _REQUEST 16*SEP=1984 02:15:37 | VAX=11 PL/I -X2.1-273 e 52 XE 
v04-000 meets fi TES: 1SKSVMSMASTER: LMONTOR. SRCJREQUEST.PLI; 139 = 04 
‘ 7 
8 ‘ . ' See ee ee & we ome me eee FP KF FP ewes este Beet eee dea wrwaneaw eer ea werner u nee e es anawre wwe ean een eeecroeacoae + } tg 
931 | /* i Ee: 
9 é /* i LOCAL STORAGE i ? 
933 |} /* i i qs 
9 | /* | eseeeeeceseoon Beene an awe reo eee eae reaas- = ee wmoeeaee maw ean wrar a wSeotre see eee ee cen e on} 7 
935 | /*/ ie 
9 6 72 
9 Declare us 
1h 4 COL_NO FIXED BINARY(7); /* Column number to store sums into */ 5 
940 Declare if 
941 ALLOC_SUMBUFS ENTRY(BIT(128) ALIGNED} /* MONITOR MACRO=32 rtn to allocate m.f. summary buf 7 
3¢ ETURNS (FIXED BINARY(31)) ?e 
94 CAPTURE _SUMS ENTRY (POINTER, FIXED BINARY(7)) /* MACRO=32 routine to move SUM buffer to M.F. Summa ve 
944 ETURNS (FIXED BINARY(31)), ?e 
945 ADV_HOM_ITEM ENTRY (POINTER); /* MACRO=32 rtn to advance homog class to next displ iE: 
947 Declare 72 
2349 : DCDB POINTER STATIC; /* CDB for current class */ Le: 
950 Declare 72 
2352 $ DISPLAY_CLASSES B1T(128) ALIGNED GLOBALREF; /* Classes to be summarized */ us 
95 2 
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CALL _= ALLOC_SUMBUFS(DISPLAY CLASSES); /* Allocate m.f. summary buffers (if not done yet) * 
IF STATUS = ROT_SUCCESSFUL TREN RETURN (CALL); /* Check call */ 
COL_NO = MFS$B_CUR_COL; /* Get number of column currently being processed */| 
DO CURR_DCLASS = 1 TO MC=>MCASW_DCLASSCT; /* Loop once for each summarized class */ | 
DCDB = D_CURR_CDBPTR(CURR_DCLASS); /* Get CDB for current class */ 
IF eet *= 0 /* If we have some elements, */ 


0; 
CALL_= CAPTURE _ SUMS ( 


DCOB,COL_NO); /* Capture SUM buffer for this class and ‘’column’’ */ 
— = NOT_SUCCESSFUL TREN RETURN (CALL); /* Check call */ 
END; 
RETURN(NORMAL) ; /* Return */ 


END SAVE _SUM_BUFFS; 
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/* 
{e+e 


* FUNCTIONAL DESCRIPTION: 


CLEANUP Routines. wecone CLEANUP, SUMMARY CLEANUP 
T_CLEANUP, and DISPCAY_CLEANUP 


Called by EXECUTE_REQUFST to close files, — Datos 
choriec ter ist cs, and release associated reso 
wPyT.C rr eA can also be called by MFSUM =REQUEST to clese 
an meanBut le and free the allocated buffer mem ae 
CLEANUP can also be called by MFSUM_ REQUE T to close 
to summary file. 
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990 INPUTS: 
991 
938 * None 
99 Y 
994 * OUTPUTS: 
398 : Non 
* e 
397 
998 * ROUTINE VALUE: 
99 t 
/* SS$_NORMAL 
1 /* 
¢ [to-- 
/e/ 
004 
005 REQUEST_CLEANUP: Procedure; 
Declare : 
FREE_MEM ENTRY RETURNS(FIXED BINARY(31)); /* MONITOR MACRO-32 routine to issue LIBSFREE_VM's */ 
CALL = FREE_MEM(); /* Free virtual memory acquired for this request */ 
3 IF M->MRBSV_RECORD & M->MRBSV_R C _CL_REQ /* If ay is a RECORD request AND cleanup required, 
HEN CACL = yRECORD. CLEANUP ( ee n do record cleanup */ 
If M->MRBSV_PLAYBACK 87 M->RRBSV. inp. CL_REQ /* If this. is a PLAYBACK request AND cleanup required, 
THEN CACL = INPUT_CLEANUP()> /* ... then do cleanup for 
IF n->ARBSY DIS PLAY ot, M->MRBSV_DIS_CL_REQ /« if this is a gpisre Y request AND cleanup required, */ | 
CACL = PLAY _CLEANUP() ;~ /* ve hen do d ispla Y cleanup */ 
IF n>anesy E UMMARY yen =>MRBSV SUM_ CL_REQ /* If thi s is a ARY request AND cleanup required, 
HEN CALL = SUMMARY_CLEANUP() ;~ /* ... then do summary cleanup */ 


RETURN; 
END UREGUEST_ CLEANUP; 


RECORD_CLEANUP: Procedure Returns(fixed binary(31)); 
Declare 
H 


OONA VE WN OO OONOUE wT 


POINTER; /* Pointer to file header record */ 
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1 M->MRBSV_REC CL_REQ = NO; /* Indicate record ¢\eenup is no longer required */ 
§ CLOSE FICECRECORD_FILE); /* Close the record file */ 
IF RECCT > 0 /* If file is non-empty, */ 
THEN DO; /* ... then want to re-write the header */ 
5 OPEN FILE(RECORD_FILE) UPDATE TITLECRECORD_STR) /* Reropen it to re-write header while */ 
ENVIRONMENTTSHARED READ); /* allowing others to read the file */ 
0 READ FILE(RECORD_FILE) SET(H); /* Read header record */ 
H=>MNR_HDRS$SQ_ENDING = M->MRBSOQ_ENDING; /* Update the ending time */ 
39 H->MNR_HDRSL_RECCT = RECCT; /* ... and the record count */ 
0 REWRITE FILETRECORD_FILE); /* Re-write the header record */ 
Og CLOSE FILE(RECORD_FILE); /* ... and close it up again */ 
4 RETURN(NORMAL ) ; /* Return */ 
Bez ¢ END RECORD_CLEANUP; 
hd 1 END EXECUTE_REQUEST; 
048 


) 
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EXECUTE REQUEST 


3 ’ SUMMARY CLEANUP: Procedure Returns(fixed binary(31)); 
3} } ZINCLUDE MONDEF ; /* Monitor utility structure definitions */ 
0 1 Declare 
1 1 LIBSSET_BUFFER ENTRY (ANY VALUE), /* Rtn to set and clear buffer mode for the SCRPKG */ 
§ 1 SCRSSET-CURSOR ENTRY (ANY VALUE, ANY VALUE), /* SCRPKG rtn to set the curser osition */ 
1 SCRSUP_SC NTRY, /* SCRPKG rtn to scroll up one Line */ 
2 ! SCRSSTOP_OUTPUT ENTRY; * Rtn to stop SCRPKG output stream */ 
§ 1 Declare 
1 NORMAL FIXED BINARY(31) GLOBALREF, /* MONITOR normal status value */ 
8 1 MRBPTR POINTER GLOBALREF /* Pointer to MRB sent yer Request Block) */ 
K POINTER DEF INED(MRBPTR), /* Synonym for MRBPTR 
1 1 1 BOT_CURS GL OBALREF /* Place cursor on bottom of screen */ 
‘ 1 L FIXED BINARY(7), /* Length */ 
ti : Ss CHAR(1), /* First character of string */ 
835 1 SF SPEC CHAR(8) BASED; /* Dummy summary file spec descriptor */ 
3 1 M->MRBSV_SUM_CL_REQ = NO; /* Indicate summary cleanup is no lenget required a/ 
38 1 CALL LIBSSET_BUFFER(0); /* Indicate ‘‘clear buffer mode’’ to $ 
39; 1 /* ... and output what's left in the Solter «/ 
0 1 CALL SCRSSET_CURSOR(24,1); /* Place cursor on bottom line, */ 
1 1 CALL SCRSUP_SCROLL(); /* ... and scroll up one Line */ 
¢ 1 CALL SCR$S7OP_OUTPUT(); /* Stop output stream and close summary file */ 
1 RE TURN(NORMALJ; /* Return */ 
4 1 END SUMMARY “CLEANUP; 
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v04 ~3Ep 198 98:10:83 ISKSVMSMASTER: CMONTOR SRCJREQUEST.PLIcT (45) 
$e ‘ INPUT_CLEANUP: Procedure Returns(fixed binary(31)); 
$5c9 : ZINCLUDE MONDEF ; /* Monitor utility structure definitions */ 
461 1 Declare 
461 1 MAX REC_SIZE FIXED Bimal} GLOBALREF VALUE, /* Max record size for PLAYBACK @ RECORD files */ 
4620 1 NORPAL FIXED BINARY(31) GLOBALREF, /* MONITOR normal status value */ 
4621 1 MRBPTR POINTER GLOBALREF /* Pointer to MRB shen! for eli Block) */ 
46 é 1 POINTER DEF INED(MRBPTR), /* § nonym for MRBPTR * 
46 1 INPUT_CPTR POINTER amet /* Ptr input buffer count word * 
re $ : INPUT_DATA CHAR(MAX_REC_S1 ES VARYING BASED(CINPUT_CPTR); e Playback file input batter «/ 
46 1 Declare 
<2 4 } INPUT_FILE FILE RECORD INPUT; /* Monitor Input (Playback) File */ 
4629 1 M->MRBSV_INP_CL_REQ = NO; /* Indicate input ¢ Leanup is no longer required */ 
46 1 CLOSE fice ciReyT FILE); /* Close the input file */ 
4631 IF INPUT ="NULL (5 /* If input buffer had been acquired */ 
46 1 THEN REE INPUT_CPTR=>INPUT_DATA; /* ... then free it */ 
46 1 RE TURN(NORMAL) ; /* Return */ 
re : 1 END” INPUT _ CLEANUP; 
i638? ; DISPLAY_CLEANUP: Procedure Returns(fixed binary(31)); | 
$6 8 : ZINCLUDE MONDEF ; /* Monitor utility structure definitions */ | 
40 1 Declare 
408 1 DISPLAYING BIT(1) AL ieee pm Ee /* YES=> display output ts active */ 
re 1 CTRLZ_HIT BIT(1) ALIGN 1 OBALREF /* YES=> CTRL/Z has been hit */ 
410 1 FIXED BINARY(31) GLOBALREE, /* MONITOR normal return status */ 
5411 1 MRBPTR POINTER GLOBALREF, /* Pointer to MRB (Monitor tends Block) */ 
gci8 : "4 POINTER sors tonecttatatalbi /* Synonym for MRBPTR */ 
414 1 a.e 
5415 1 tiasset BUFFER ENTRY (ANY VALUE), /* Rtn to set and clear buffer mode for the SCRPKG «/ 
2616 1 PUT_TO_SCREEN ENTRY (ANY VALUE, /* Rtn to put an arbitrary buffer to the SCRPKG * 
41 1 SCRSSET_CURSOR ENTRY (ANY VALUE, ANY VALUED, /* SCRPKG rtn to set the cursor position */ 
5418 1 SCRSERASE PAGE ENTRY (ANY VALUE, ANY VALUE), /* SCRPKG rtn to home the cursor & clear the entire screen * 
rah 1 SCRSUP_SCROLL ENTRY, /* SCRPKG rtn to scroll up one Line */ 
. 9 : SCRSSTOP_OUTPUT ENTRY; /* Rtn to stop SCRPKG output stream */ 
sc § 1 Declare 
4 1 1 FIN_SEQ GLOB /* Finish escape sequence for display terminal */ 
426 L FINED LB INARY(7), /* Length */ 
r 5 : Ss CHAR(1), /* First character of string */ 
4 5 1 1 BOT_CURS GLOBALR /* Place cursor on bottom of screen */ 
4 8 1 L FIXED BINARY (7D /* Length */ 
? ; S$ CHAR (1 /* First character of string */ 
r 1 : DF SPEC CHAR(8) BASED; /* Dummy display file spec descriptor */ 
4 5 1 M->MRBSV_DIS $ CL_REQ = NO; /* Indicate display cleanup is no o \gnger required «/ 
4 1 CALL LIBSSET-BUFFER(O); /* Indicate “clear buffer mode" 
435; 1 /* ... and output what's left a the Dutrer «/ 
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Fp eyr TO pCReEne (FIN_SEQ.L,FIN_SEQ.S); /* pat SCRPKG for finish sequence, */ 
ist LAuiA YES actual output has begun, */ 


NT ePLayi NG = NO; /* Indicate display output ha has Lftgrped. * 
CALL SCRS$S SET gfuRsoR (24, 1); /* ... place cursor on «/ 
st L SCRSUP_SCROLL(); /* ... and scroll up one tine «/ 

CALL senstBk OUTPUT(); /* Stop output stream if present */ 

RE TURN(NORMAL); /* Return */ 


END DISPLAY ACLEANUP; 
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ret ' INPUT_INIT: Procedure Returns(Fixed Binary(31)); 

tes ; 3 /* 

4 ; 1 /e+* 

4 | /* 

ri i : - FUNCTIONAL DESCRIPTION: 

454 is INPUT_INIT 

4 $ ' 1 /* Called by REQUEST_INIT or MFSUM_REQUEST to open the input 

? ! s (playback) file, performing varTous sanity checks on it. 

43 js IMPLICIT INPUTS: 

461} 1 /s MRBPTR (or M) points to active MRB. In particular, MRBSA_INPUT 

ree i : . points to string descriptor of file-spec to be opened. 

464; 1 /* IMPLICIT OUTPUTS: 

465 { 1 /* 

reg | es /* Input file has been opened. 

5467 ; 1 /* H and MCASA_INPUT_PTR both point to first data byte of header record. 

ree ' : . MCASL_INPUT_LEN contains length of header record. 

470} 1 /* ROUTINE VALUE: 

471; 1 /* 

of i : . SS$_NORMAL, or failing MONITOR status code. 

474} 1 /* SIDE EFFECTS: 
5475: 1 /* 
ee? t : . /INPUT fire (INPUT_FILE) is positioned to the file header record. 

478} 1 /t-- 

479: 1 /*/ 

480 1 

481 ; 1 /* 

48 ; 1 /* ' eee seeseee Serecmrave wren ewe oesrer ower nowrce wen ew en sewn eee ewer aoone eeececeeneecen Seeman eew ce - 
483: 1 /* ! ! 
the ; 1 /* : INCLUDE FILES ' 
485; 1 /* ' } 
4 ; 1 /* ' ereecwerewrewreneese nr een eer ere ee ewe new eran wrwer wren e2rrenwrwe ewroancanmaz SF eee rewrnmwnxm ee eS] == ese wre ee we nr Se =e eS } 
ely os 

$89 } ZINCLUDE MONDEF ; /* Monitor utility structure definitions */ 
6258 : 1 /* 
6 59 H 4 /t | emmmeweeoewowooooeoeeoece ms a De Ce Oe me ccs swe ee SS www ewe SE ee EOE wae ene ser mere ee omens + 
6260 : 1 /* ' ‘ 

61; 1 /t ‘ MESSAGE DEFINITIONS . 
6 66 ce /* ' : 
6 6 ; 1 /* ' wee ema ene wee see wee er Be ee ee SE eee ee ee ee meee ee oe eecen} 
6264 | 1 /*/ 

6265 1 
6 4] 1 Declare 
626 1 MNRS$_PREMEOF FIXED BINARY(31) GLOBALREF VALUE, 

6268 1 MNRS_INVINPFIL FIXED BINARY(31) GLOBALREF VALUE, 

6269 1 MNRS$_UNSTLEV FIXED BINARY(31) GLOBALREF VALUE; 


ee rR 
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6270 1 

71 1 2 
6 : /* 
6 ie ; 1 /t ' we em ee oe ee me ee we Ge oe ee eo eS ow a ew eS ee ee @ we ae me me we ee ee a eS SS on RS om em eee me ee ee cS Do we easwecerezcea +} 75 
6275: 1 /* ' ' 75 
62074 | 1 /* i EXTERNAL STORAGE DEFINITIONS i te] 
6275} 1 /* i | 73 
6 £8 H 1 /* ' wee ae tr eee ew certo et en ee BB Bern owBwDeernw ee Ze wee ee ss we we wee SS Sw Sw eS SOO em Sw So ew eseeeee ecoen> 75 
6277 | 1 /*/ ie 
6 4: 1 7§ 
627 1 Declare 75 
6280s 1 it ENTRY (ANY VA VE. ANY, ANY) OPTIONS(VARIABLE), /* MONITOR MACRO-32 routine to Log synchronous error 5 
6281 1 MAX REC_SIZE FIXED BINARY ( GLOBALREF VALUE, /* Max record size for PLAYBACK & RECORD files */ lp 
6 8 1 NORMAL FIXED BiNARY(31) GLOBALREF, /* MONITOR normal status value */ 25 
628 1 MRBPTR POINTER GLOBALREF ‘* Pointer to MRB (Monitor Request Block) */ 25 
62841 M POINTER DEF INED(MRBPTR), /* Synonym for MRBPTR */ 7 
6285 1 MCAPTR POINTER GLOBALREF /* Pointer to MCA (Monitor Communication Area) */ 75 
62861 MC POINTER DEF INED(MCAPTR), /* Synonym for MCAPTR */ 7 
6287 1 6 POINTER GLOBALREF, /* Pointer to input file header */ 75 
6288 1 ST_LEVEL_CUR CHAR(8) GLOBALREF, /* Current MONITOR recording file structure level */ Le 
6289 1 ST LEVEL_PB CHAR(8) tT he /* MONITOR recording file structure level from input file */ ie 
6290 1 NERT_REC FIXED BINARY(31) GLOBALREF VALUE, /* Read next record indicator for READ_INPUT rtn */ 23 
6291 1 HEADER_TYPE FIXED BINARY(15) GLOBALREF, /* Type for MONITOR recording file header */ Lp 
6 3 1 INPUT_CPTR POINTER GLOBALREF /* Ptr to input buffer count word */ Le 
° + : INPUT_DATA CHAR(MAX_REC_SIZES VARYING BASED(INPUT_CPTR); /* Playback file input buffer */ fi 
6295 1 Declare i 
e > \ INPUT_FILE FILE RECORD INPUT; /* Monitor Input (Playback) File */ Le 
6298 ; 1 /* 75 
6 99 : 1 / . ' Seer Er SSBB eeroowe HOSE O EET DOS SSE SH BSOHE BEDE BD ET EOB eB SEDEBoH nom sow Beware ree sawoweos > 75 
6300 ; 1 /* ! ' 75 
6301 ; 1 /* i LOCAL STORAGE a5 
Ose :.% /* ! 75 
630 ; 1 /t errr Tee eeeeeeeeeeeeerreererererTrrTrrTreremrererrrrererererrrr?rererrgrrgfrerrerererrgrrrrrrrreerrrerrrrrrrtfttt, > 7§ 
6304 : 1 /*/ 75 
81 teet f 

eclare P| 

S307 t 
6308 1 TEMP_TYPE BIT(8) ALIGNED, /* Temporary area for record type byte */ 
6309 1 TEMP_PTR POINTER 
6310 1 01 TEMP BASED(TEMP_PTR) 
63111 L FIXED BINARY(15), 
6 \ 1 oc FIXED BINARY(15), 
631 1 A POINTER, 
oele : TEMP_STR CHAR(TEMP.L) BASED(TEMP.A); 
e316 1 Declare : ; 
} 44 ‘ TEMP_INPUT_PTR FIXED BINARY(31) BASED(ADDR(MC->MCASA_INPUT_PTR)); /* Alias for MCASA_INPUT_PTR for computation */ 
e319 1 
6320 1 M->MRBSV_INP_CL_REQ = YES; /* Indicate input ¢Leanup is required */ 
6321 1 CLOSE FITECIRPUT FILE); /* Make sure file is closed before opening */ 
6 § 1 NPUT_CPTR = NULC(); /* Indicate no input buffer yet */ 
6 1 TEMP_PTR = M->MRBSA_INPUT; /* Set up ptr to input file name string «/ 
63524 1 OPEN FILECINPUT_FILE) TITLE(TEMP_STR) /* Open the input recording file for aypack «/ 
6325 1 ENVIRONMENTTSHARED_WRITE); /* and shared read (but have to use SHARED_WRITE) */ 


Sern res! 


ALLOCATE INPUT DATA 

MC->MCA ACINPUT PTR = INPUT oSPIR: 
TEMP_ INPUT PTR = TEMP_INPUT_PTR + 2; 
CALL cASACR _ REC); 
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CALL MON_ERR(MNRS$_PREMEOF) ; 
Nb (ANRS_PREMEOF ) ; 


~“S 2. 


Can't find file header; log the error */ 
ees and return to caller * 


END INPUT_INIT; 


6 1 

6 1 

6 1 

6 1 

6 1 

6 1 

6 

6 

3 

6 1 H = MC->MCASA_INPUT_©TR; /* Establish ptr to file header */ 

3 } Hae ves = URSPEC (READER mb te . Get header’ type isn H byt for conpare «/ E 

= BR { rst record is no e header or ... * 

° 3 1 a NDRST eh “= SUBSTR(ST_LEVEL_CUR,1,5) /* ... MONITOR ID is not OK, */ . 
i 

6341 CAL ERR(MNRS$_INVINPFIL); /* Log an error */ 

2 § ; RE TURNCARRS INVINPFIL); /* “oe and return to caller */ 

6344 

3 5 \ IF “THEN DOs” HDRST_LEVEL,7,2) “= SUBSTR(ST_LEVEL_CUR,7,2) /* If format level is not OK, */ 

£328 CALL MON_ERR(MNRS iba /* Log an error */ 

ogee RETURN CHARS UNSTLEV) /* ... and return to caller */ 

6350 1 

6351 \ ST_LEVEL_PB = H->MNR_HDRST_LEVEL; /* Save playback structure level */ 

£328 1 RETURN(NORMAL) ; 

6354 1 

6355 
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6 § DISP_TEMPLATE: Procedure (DCDB, OUTPUT_IND) 
? , Returns(Fixed Binary(31)); 
tt nn 
6360 : 1 /t++ 
6361 : 1 /* 
° § ' ! FUNCTIONAL DESCRIPTION: 

; ® 
° rf: H : ee DISP_TEMPLATE 

{ w 
6 $ co. /* Called by DISPLAY_EVENT, SUMMARY_EVENT and PUT_SUMM_PAGE to 
6 . /* form and write a template for thé indicated class. The template 
6368 : 1 /* consists of everything on the screen except actual data. This 
6369 : 1 /* includes the first 7 lines of the screen, the footing line and 
6370 | 1 /* the Line item identifiers. If a bar graph has been requested, 
oat) ‘ : the graph box is also included. 
o378 _s /* INPUTS: 
6374 | 1 /* 
6375 | 1 /* DCDB -- Pointer to the CDB (Class Descriptor Block) 
$376 } -~ of the class to be displayed. 
6378; 1 /* OUTPUT_IND <== Output indicator bit. If set, DISP_TEMPLATE 
6379; 1 /* sends terminal a\sotey commands to the SCRPKG 
6380 : 1 /* and requests it to output to the screen. | 
6381 : 1 /* OUTPUT_IND is not set, DISP_TEMPLATE sends 
ose 2 /* terminal display commands to the SCRPKG, but 
O87 ‘ ; a“ does not request immediate screen output. 
ratty _ /* OUTPUTS: 
6386 ; 1 /* 
6387 ; 1 /* None 
6388 ;| 1 /* 
6389 ; 1 /* ROUTINE VALUE: 
6390 : 1 /* 
6391 ; 1 /* SS$_NORMAL, or failing MONITOR status code. 
6392 ; 1 /* 
6393: 1 /t-- 
6394; 1 /«/ 
6395 1 
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a 


<m 
rn 


Declare 
MNR$_DISPERR FIXED BINARY(31) GLOBALREF VALUE; 


6 . 3 /* 
6 98 : 1 /* ' See OBOE Erma cwe mena wr rane er mae oe = eee = a a ea Ee - 
6398 | 1 /* ' . ! 
6399 | 1 /* ! INCLUDE FILES ! 1 
6400 | 1 /* ! ! 
6401 ; 1 /* ' moana ean nana oan ae moe Smee e nea samen nw ec on ean anew ese eeeeneeaanaeann ee de 
aes) . 2 /*/ 
640 1 
se \ ZINCLUDE MONDEF ; /* Monitor utility structure definitions */ 
fag , i /* 
71 74 ; 1 /* ' Sener eneaaor earner aenaaena maa es eae See eeeeeeeeeeeananaanaanonn Sewer Bese soe oe woes e ee wee a 
7178 {| «(1 /* ‘ ! 
7176: 1 /* ! EXTERNAL ROUTINE DEFINITIONS ! 
7177 {| «(1 /* ! ! 
71 78 ; 1 /* ' Sse eosce ae eae oes ane = Someone eran eee en ee eee Bee DEE BOOB eEDeEt eww eneewon seam ware anes + 
7179; #1 /*/ 
7180 1 
7181 1 Declare 
at 4 1 MON_ERR ENTRY (ANY VALUE, ANY, ANY) OPTIONS(VARIABLE), /* MONITOR MACRO-32 routine to tog synchronous error 
718 1 TEMPLATE ENTRY(POINTER VALUE) /* BLISS rtn to output template * 
7184 1 RETURNS(FIXED BINARY(31)), . 
7185 1 SCRSSET_CURSOR ENTRY (ANY VALUE, ANY VALUE), /* SCRPKG_rtn to set the cursor position */ 
7186 1 DISPLAY_PUT ENTRYC(ANY, FIXED BINARY(31), ANY, ANY) /* MACRO=32 rtn to put a display string */ 
71871 OPTIONS (VARIABLE) 
7188 1 RETURNS(FIXED BINARY(31)); 
7189 1 
7190 } 1 /* 
7191 2 1 /* { pereoneowerooroeroonsoseesosorosesosososs=s Seem ee ee mm mee ra 
7192 : #1 /* ! ! 
7193: 1 /* ! MESSAGE DEFINITIONS ! 
7194 i 1 /* ‘ ‘ 
7195 | 1 /* I censshasiainiennniiap nap tiianteintaniennidbtamnentenninaeapapERRpReREnN + 
7196 ; : /*/ 
1 
1 
1 
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vat mi iets 1 0g: 13:88 ISKSVMSMASTER: [MONTORSRCIREQUEST.PLI+% (35) | 
7201 1 
7 8 . /* 

7 0 : 1 /* leeeeveeeceeeeeeecee esseeecae seco eot eae eases euwaeenas weecwresaasae Se ecenwraomoeuseoseasceneana + 

72046: 1 /* ! f 
7205 :} 1 /* ! COMPILE-TIME CONSTANTS : 

7206: 1 /* : : 
7 07 H 1 /* ' See sen enee2eancnnean meee nmraenzeracasne2azwee eae ene ae non anawac Seace nae eoenoen ste aesnaereaecee nner eae =e + 

7208 : 1 // 

7209 1 

7210 1 ZREPLACE NOT_SUCCESSFUL a ‘O'B; /* Failing status bit */ 

7211 1 ZREPLACE YES Y '1°B; /* For general use */ 

f \§ : ZREPLACE BY '0O'B; /* For general use */ 

7214; 1 /* 

ato 4.9 /* ee + | 
7216; 1 /* ' ' 

rel? an /* ' EXTERNAL STORAGE DEFINITIONS ! 

7218; 1 /* ' ! 

7219} 1 /* Ee Oe ane oT en TO NE eT + | 
7220: 1 // 

iss! 1 

7 $§ 1 Declare 

722 1 VTWIDTH FIXED BINARY(31) GLOBALREF VALUE, /* Width of video terminal */ 

rsse : VTHEIGHT FIXED BINARY(31) GLOBALREF VALUE; /* Height of video terminal */ 

7226 1 Declare 

7227 1 CDBPTR POINTER GLOBALREF, /* Pointer to CDB (Class Descriptor Block) */ 

7228 1 C POINTER DEFINED(CDBPTR), /* Synonym for CDBPTR */ 

7 44 1 MRBPTR POINTER GLOBALREF /* Pointer to MRB (Monitor Request Block) */ 

7230 M POINTER DEF INED(MRBPTR), /* Synonym for MRBPTR */ 

7231 1 MCAPTR POINTER GLOBALREF /* Pointer to MCA (Monitor Communication Area) */ 
r3¢ 1 MC POINTER DEF INED(MCAPTR), /* Synonym for MCAPTR */ 
USe7 , SPTR POINTER GLOBALREF ; /* Pointer to SYI (System Information Area) */ | 
7235 1 Declare 
ree i NORMAL FIXED BINARY(31) GLOBALREF; /* MONITOR normal return status */ | 
1536 1 Declare ; ; | 
7239 1 INP_COMM_STR CHAR(MNR_HDRSK_MAXCOMLEN) GLOBALREF, /* User comment string from input file */ 
reno : INP_COMM_LEN FIXED BIRARY(15) GLOBALREF; /* Actual length of comment string */ 


EXECUTE_REQUEST 
v04 


7 tg 1 Declare 
724 1 1 ANNCE_STR GLOBALREF , 
7246 1 g L FIXED BINARY(7), 
7245 1 5 CHAR(1); 
7 4g 1 
724 1 Declare 
7248 1 1 STATUS_STR GLOBALREF, 
7269 1 é L FIXED BINARY(7), 
7250 1 S CHAR (1) 
g 51 STATUS_PARMS  CHAR(125 GLOBALREF; 
7 3g 1 Declare 
7254 1 1 TABHEAD_STR  GLOBALREF, 
7255 1 é L FIXED BINARY(7), 
7256 1 5 CH . 
7257 1 TABHEAD_PARM POINTER STATIC 
72581 PCENT_STR CHAR(2) GLOBALREF, 
1299 1 BLANK-STR CHAR(2) GLOBALREF; 
7260 1 
$e 1 Declare 
6¢ 1 1 PROCHEAD_STR GLOBALREF, 
2 1 L FIXED BINARY(7), 
126% ! S CHAR(1); 
66 1 Declare 
1 1 MF_STATHEAD_STR GLOBALREF, 
1 2c FIXED BINARY(7), 
! 2s CHAR(1); 
1 
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Announcement FAO control string */ 
Length */ 
First character of string */ 


Status FAO control string */ 
Length */ 

First character of string */ 

3 lLongword FAOL parms for status display */ 


Tabular heading control string */ 
Length */ 


First character of string */ 

FAOL parm spescet ing Z or blank */ 
Percent symbol cstring */ 

Blank character cstring */ 


PROCESSES heading control string */ 
Length */ ’ 
First character of string */ 


M.F. summary statistic heading control string */ 
Length */ ; 
First character of string */ 


| 
| 


a 


"1 | 

EXECUTE _REQUEST 1G-SE6-19 4 02:15:4 VAX=-11 PL/I 2.1273 Page | 
506-000 ~3Fb= 1 38e 98:18:88 ISKSVMSMASTER: CMONTOR, SRCJREQUEST.PLI-% 53), 
7 % _ /* 

7 7 ; 1 /* ' Sem eR Se RS eT Se weezer memcne weennrenaooe wen oewe Srot etree eve ese erecewe + 
7274; 1 /* : ! 

7275} 1 /* i OWN STORAGE i | 
7 6 wy /* / ' 
7 7 } 1 /* ' a ee ee ee cc ame ror e ane ne sae eae meo aa ascanwrmrnrnrarscerr soe oe ae + | 
7278: 1 /*/ 
7279 1 

7280 1 Declare 

728} 1 CALL FIXED BINARY(31) STATIC /* Holds function value (return status) of called ro 
f B¢ : STATUS BIT(1) BASEDCADDR(CALLS ’ /* Low-order status bit for called routines */ 
7284 1 Declare | 
7285 1 1 DPUT_FLAGS, /* DISPLAY_PUT routine flags */ 

7286 1 $ FAOL_REQUESTED BIT(8) ALIGNED, /* YES => Rlate buffer with FAOL first */ 

7287 1 OUTP_REQUESTED BIT(8) AL ged. /* YES => Really output buffer */ 

rene : EN FIXED BINARY(31); /* Length of buffer for DISPLAY_PUT to put */ 

7590 1 Declare 

7291 1 POINTER, /* Pointer to current display class CDB */ 

729 1 OUTPUT_IND BIT(1) ALIGNED /* YES => output the template */ 

1337 : I FIXED BINARY(15); /* Index for DO Loop */ 

7295 1 Declare 

roe i SPEC_SYSTEM_SCREEN BIT(1) ALIGNED; /* YES => special screen for SYSTEM class */ 
72981 Declare > 

7299 1 1 TITLE_PARMS STATIC /* FAOL parms for title display Line */ 

73001 BLANKS FIXED BINARY(31), /* Number of preceding blanks */ 

7301 1 2 TITLE_PTR POINTER /* Pointer to title cstring */ 

730 1 2 PCENT WID FIXED BINARY(31), /* Width of percent string (0 or 4) */ 

730 1 2 NODE PT POINTER /* Pointer to DECnet node name cstring */ 

7304 1 TITLE_LEN FIXED BINARY(7) BASED(TITLE PTR), /* Length of title string */ . 

7305 1 NODE _CEN FIXED BINARY(7) BASED(NODE_PTR), /* Length byte of node name cstring */ 

73061 1 TITLE_STR GLOBALREF , /* Title FAO control string */ 

7307 1 2t FIXED BINARY(7), /* Length */ 

03 : es CHAR(1); /* First character of string */ 

7310 1 Declare ; 

7311 1 1 COMM_PARMS STATIC /* FAOL parms for comment display line */ 

Taig 1 BLANKS FIXED BINARY(31), /* Number of preceding blanks */ 

731 1 COMM_LEN FIXED BINARY(31), /* Length of comment */ 

gale 1 COMM_ADDR POINTER /* Address of comment string */ 

7315 1 1 COMM_STR GLOBALREF /* Comment FAO control string */ 

mig gt FIXED BINARY(7), /* Length */ 

ae : Ss CHAR(1); /* First character of string */ 

7319 1 Declare | 
7320 1 1 SYS_HEAD_PARMS STATIC /* FAOL parms for SYSTEM heading Line */ 
7321 1 SYS _NODE_PTR POINTER /* Pointer to DECnet node name cstring */ 

73 ¢ 1 STATLONG-LEN FIXED BINARY(31) INIT(7), /* Length of requested stat */ 

7394 : STATLONG_ADDR POINTER, /* Addr of requested stat */ 

7325 1 1 SYS_HEAD_STR GLOBALREF /* SYSTEM class heading control string */ 

7326 1 : L FIXED BINARY(7), /* Length */ 

73 1 $ CHAR(1), /* First character of string */ 
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73 1 

7 § 1 STAT_LONG (4) CHAR(7) GLOBALREF, /* Table of 7-char statistic strings */ 
7 1 SYS_BOx_STR_ADDR POINTER GLOBALREF , /* Address of screen box string */ 

7331 1 SYS_BOX_STR CHAR(1) aerials BOX_STR_ADDR), /* SYSTEM screen boxes (1st char) */ 
7332 1 SYS-BOX-STR_LEN FIXED BINARY(15) GLOBALREF, /* Its length 

7335 1 SYS_TEXT_STR CHAR (1) GLOBAL BEF /* SYSTEM Screen text */ 

7 1 SYSTTEXT STR_LEN FIXED BINARY(15) GLOBALREF, js Its Length 

7335 1 SYS"F A081 RB CHAR(1) GLOBAL BEF /* SYSTEM FAO string «/ 

g SYS-FAO_STR_LEN FIXED BINARY(15) GLOBALREF; /* Its length */ 

7 1 Declare 

7 1 1 "358 BOX_PARMS, /* FAOL parms for SYSTEM screen boxes */ 
7340 1 BP1 ~ FIXED BINARY(31), /* Free List bar range value */ 

7341 1 8 ars POINT /* Pointer to ‘K"’ or null eString «/ 

7 ¢ 1 SBP FIXED BINARY(31), /* Mod List bar range value */ 

f i : SBP4 POINTER; /* Pointer to ‘K’’ or null cstring */ 
7345 1 Declar 

7346 1 1 BU SYS SINGLE GLOBALREF, /* Bar graph range values for SYSTEM class (single s 
7347 1 2 BSS RANGE (1:17) FIXED BINARY(31), 

7348 1 K_STR CHAR(2) GLOBALREF /* K symbol for box */ 

7350 NOLL_STR FIXED BINARY(15) {NIT(O); /* Dummy null symbol for box */ 

7351 1 
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§ MC=>MCASV_ERA_SCPL = NO; /* Indicate no need to erase scrolling region ... */ 
: /* ... (display area) for PROCESSES and homogs */ 
¢ IF DCDB->CDB$V_H 


THEN SCDBLSCDBSA. CDX=>CDXSL_PREV_DCT = 0; /* P be count of previous ¢tsplay elements ... */ 


7 1 

7 1 

7 1 

7 1 

f $ : «++ for homogeneous class 

7358 1 If as = es sa SYSCLS & DCDB->CDBSB_ ST *= ALL. wit /* If special SYSTEM screen, */ 
7359 1 C_SYSTEM_SCREEN = YES; * Set a bit for quick reference */ 
: : ese SPEED “SYSTEM_SCREEN = NO;- ie Otherwise, turn it off */ 

7 ‘ 1 

7 ; 4 /* 

7 Be /* Send announcement string to SCRPKG via DISPLAY_PUT routine 

f 5 ; ~ This string is independent of screen style. 

7 1 

7 1 PUT_LEN = ANNCE_STR.L; /* Get Length of this gu ut */ 

7369 1 FAOE REQUESTED = NO; /* No need to go thru SFAOL */ 

7370 1 OUTP_REQUESTED /* Not ready to actually output it yet */ 
73711 CALL™= DISPLAY pul cépur _FLAGS,PUT_LEN,ANNCE_STR. s,) 

7 Le eB bend announcement string to SCRPKG */ 
ie ; IF STATUS = NOT_SUCCESSFUL THEN RETURN(CALL); is Check status */ 

7375: #1 /* 

7376: 1 /* Send status (footing) string to SCRPKG via DISPLAY_PUT 

7377; #1 /* routine. This string is independent of screen style. 

7378; 1 /* Skip it, however, for multi-file summary. 

f 79 ; : /*/ 

7381 1 IF M->MRBSV_MFSUM = NO /* If not multi-file summary, */ 
Taeg 1 THEN DO; 

738 PUT_LEN = STATUS_STR.L; /* Get Length of this put */ 

rae FAOC_REQUESTED =" VES; /* Request a fun thru SFAOL */ 

7385 OUTP_REQUESTED = /* eady os tyes 7° output it yet */ 
7386 CALL™= DISPLAY PUT CbPUT _FLAGS,PUT_LEN, STATUS. STR. 4 STATUS PAR 

7387 | * Send status string to tcRPKG */ 
g . tees = NOT_SUCCESSFUL THEN RETURN(CALED /* Check status */ 

7390 1 
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7391 1 ( 
7 3 ? /* Be: 
7393 | 1 /* Send title string to SCRPKG via DISPLAY_PUT routine. 86, 
7394: 1 /* Includes DECnet node name if one is present 86, 
f 36 ' : es This string is independent of screen style. Bs 
739 1 : 
73981 TITLE_PTR = DCDB->CDBSA_TITLE; 2st title pointer */ 86, 
7399 1 TITLE_PARMS. S = DIVIDEC(VTWIDTH = TITLE Len) 2,31) = 1; /* Compute preceding blanks */ 86. 
7400 1 IF DCBB->CdB V_PERCENT = YES & M->MRBSV “AFSUA = NO /* If percent Popmetes for other than m.f. summary, */ 86. 
60) 1 THEN PCENT-WID = 4; /* then put out % strin ng «/ re 
74 ; 1 ELSE PCENT WID = 0; /* else don't put “str ng */ 
740 1 PUT_LEN = TITLE_STR.L; /* Get Length of this put */ 86: 
7404 1 NODE PTR = ADDRTSPTR->MNR syst ~ 11 latte /* Set up ptr to node name cstring */ 86 
7405 1 IF NODE _LEN = 0 } sree “Suste neeree /* If node name non-existent, or special SYSTEM screen, */ 86 
7406 1 THER PUT_LEN = PUT_LEN - /* then chop off node rane Line */ 86: 
740 1 FAOL REQUESTED = WES; /* Request a run thru $FAO 86: 
7408 31 OUTP-REQUESTED = /* N read f° actually Fin it yet */ 86: 
7409 1 CALL™= DISPLAY pul cbpur _FLAGS,PUT_LEN, TITLE _STR.S_TITLE. PAR 86 
7410} 1 /* Send~ title to SCRPKG */ 86) 
pels : IF STATUS = NOT_SUCCESSFUL THEN RETURN(CALL); /* Check status */ v4 
7413: 1 /* 86) 
7414; 1 /* If special sereen display for SYSTEM class, 86: 
7415} 1 /* send a heading string including DECnet node 86: 
7416; 1 /* name and requested statistic. 86: 
ete Jeg 36 
2419 IF SPEC, SYSTEM, SCREEN eg 
7421 STATLONG_ADDR = ADDR (STAT _LONG(DCDB->CDB$B_ST)); /* Get addr of correct stat string */ 80: 
74 7 SYS_NODE-PTR = NODE PTR /* Get address of node rane cstring */ 86! 
74 = SYS_HE TR.L; /* Get length of t S put 86 
7424 FAOC_REQUESTED = VES; /* Request a run + be PAOL «/ 86 
7425 OUTP-REQUESTED = /* ready to actually output it yet */ 86 
74 $ CALL”= DISPLAY pur cbPUT _FLAGS,PUT_LEN,SYS_HEAD_STR.S, ab “HEAD PARMS); 86) 
7427 Send SYSTEM heading to SCRPKG */ $0 
oe oe = NOT_SUCCESSFUL THEN RETURN(CALL); c Check status */ 86 
74 1 86 
7431; 1 /* 86 
74 [os /* Send user's comment Bering to SCRPKG via DISPLAY_PUT routine. 86 
S, ; o. This string is independent of screen style. Bs 
: ra 
7435 1 
74 1 IF M->MRBSV_MFSUM = NO & INP_COMM_LEN “= 0 /* If not mf. pummery and an input comment exists, */ 86 
7238 : eee SYSTEM_ SCREEN = NO” /* and not the special SYSTEM screen, */ ae 
7439 COMM_LEN = INP_COMM_LEN; /* nove Length to parm List 2? 
7440 COMA_ Abon s = ADBR(INP COMM STR); /* Move address to parm List 
7441 COMM”PARMS .BLANKS = DIVIDE((VTWIDTH - COMM_LEN), 5. 31) - 1; /* fonpute pr A.B blanks */ 
744 N = COMM_STR.L; /* Get Length of this put */ 
744 AOC REQUESTED = YES; . Request a run thru yhOu «/ 
7444 OUTP_REQUESTED = NO; /* read to actually output it yet */ 
7445 CALL™= DISPLAY Put (bput _FLAGS,PUT_LEN,COMM_STR.S, CORN PAR 
7446 } /* Send aoine | Line to SCRPKG */ 
| 
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7447 oe = NOT_SUCCESSFUL THEN RETURN(CALL); /* Check status */ 


7? 
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7? 
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7 
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7? 
7 
7? 
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7? 
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OUTP-REQUESTED = outbu /* utes it if caller requested */ 
CALL~= DISPLAY_PUT DPuT “Lhe, PUT_LEN, TABHEAD_STR.S, TARHEAD 

/* Hand al over to SCRPKG */ 
IF STATUS = NOT_SUCCESSFUL THEN RETURN(CALL); /* Check status */ 


7450; 1 /* 

7%4 . F /* For standard Eheages. colt TEMPLATE to put item 

74 a /* names and build FAO string for actual data for 

7455: 1 /* tabular or barcstyle screen. Skip, however, for 

7454: 1 /* the special SYSTEM display 

7488 : : // 

748? } IF Wem STD & SPEC_SYSTEM_SCREEN = NO /* If standard class, and not SYSTEM screen, */ 
7459 CALL = TEMPLATE(DCDB); /* Put item names and build FAO string */ 

£460 IF STA US = NOT_SUCCESSFUL /* Check status */ 

746 CALL MON _ERR(MNRS on CALL); /* Log the error */ 

746 RETURNCMARS DISPERR) /* ... and return with status */ 

7464 END; 

7465 . END; 

7466 

7467 {| 1 /* 

7468 : 1 /* Send poaging string (and box, if bar graph) 

7469 : 1 /* to SCRPKG via DISPLAY_PUT routine. 

SME Gabe 

she : A eae sales = NO & SPEC_SYSTEM_SCREEN = NO /* Only do it if not multi-file summary and not spec 
7474 1 

7475; 1 /* 

7476 | 1 /* Put PROCESSES Heading 

A a 

st } IF ‘=e STD & DCDB->CDBSB_ST = REG_PROC /* Put out regular PROCESSES heading */ 
7481 2 PUT_LEN = PROCHEAD STR.L: /* Length of put */ 

748 FADE REQUESTED = NO; /* No SFAOL required */ 

748 OUTP-REQUESTED = OUTPUT_IND; /* Output it if caller requested */ 

7484 CALL™= DISPLAY PUT CDPUT™ FLAGS PUT_LEN,PROCHEAD_STR.S,); /* Hand heading over to SCRPKG */ 

7485 IF STATUS = NOT_SUCCESSFUL THEN RETURN(CALL) ; /* Check status */ 

yi89 

7488 ; 1 /* 

7489 ; 1 /* Put Tabular Heading 

ot 6 ae: 

749 1 ELSE IF gin Pes eae STD & DCDB->CDBSB_ST = ALL_STAT /* ALL stati ates S requested for STD class? * 
749 1 THEN /* Tabu “a d spl ~ 

7496 IF “DCDB->CDBSV WIDE /* If a wide display (for DISK), */ 
7495 THEN w CALL SCRSSET_CURSOR(6,44); De eae gt set appropriate cursor */ 
rene ELSE C€ <i e scRssetC URSOR(6,40); /* ... else set it to the usual place */ 
749 IF ia es tf SENT! 

7498 THEN ABNERD. PARA = ADDR(PCENT_STR); /* Include % symbol in heading s/ 
7499 7 thee TABHEAD™ PARM = ADDR(BLANK_STR); /* Exclude % symbol from heading */ 
7500 LEN = TABHEAD STR.L; /* Length of put */ 

7501 FAOCS REQUESTED = ves, /* Request run thru SFAOL */ 
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7206 ? END; 
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95 
96 
96 
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: $8 i c Put Bar Graph Headi 
H * ut Bar Gra eadin 

Se Bi roca 

7 \ 1 ELSE BEGIN; /* Bar graph display */ 

751 eclare 

7514 CURGR_VAL FIXED BINARY(31), /* Curren graph value (for heading) */ 

7515 MAXGR_VAL FIXED BINARY(31), /* Max (right-edge) graph value for heading */ 

£o18 GR_INTR FIXED BINARY(31), /* Increment value for heading */ 

751 A FIXED BINARY(31), /* Range for needing values * 

7319 CHAR_ADDR POINTER; /* Addr of symbol char for heading */ 

F359 R GARHEAD.STR GLOBALREF /*B h headi trol string */ 
s * Bar gra eading control string * 

75 : ‘ L FIXED BINARY(7), /* Length o/ . . 

75 S CHAR(1), /* First character of gtr ing «/ 

7524 1 BARHEAD_PARMS /* FAOL parms for graph heading Line */ 

7525 BP1 FIXED BINARY(31), /* Graph heading value */ 

7526 BP I /* Graph heading symbol string ptr */ 

7527 BP FIXED BINARY(31), /* Graph heading value */ 

7328 BP4 P /* Graph heading symbol string ptr */ 

7529 BPS FIXED BINARY(31), /* Graph heading value */ 

75 er¢ POINTER /* Graph heading symbol string ptr */ 

7531 gP FIXED BINARY(31), /* Graph heading value */ 

F338 BP8 POINTER /* Graph needing symbol String ptr */ 

753 BP9 FIXED BINARY(31), /* 1=> advance heading one byte to right */ 

7534 BP10 FIXED BINARY(31), /* Graph heading value */ 

reee BP11 POINTER; /* Graph heading symbol string ptr */ 

7537 Declare 

7538 1 STATHEAD_STR GLOBALREF, /* Bar graph statistic heading control string */ 

7539 § L FIXED BINARY(7), /* Length */ 

7540 S$ CHAR(1), /* First character of string */ 

7541 1 STATHEAD_PARMS /* FAOL parms for statistic heading */ 

734 . L FIXED BINARY(31) INIT(3), /* Statistic heading string length */ 

754 A st Ae /* Pointer to heading string */ 

rete STAT_HEAD (4) CHAR(35) GLOBALREF; /* Table of 3-char heading strings */ 
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48 CALL _= PUT_BOX(); /* Put berger bar graph box to SCRPKG */ 
ref IF STATUS = NOT_ SUCCESSFUL THEN RETURN(CALL); /* Check status */ 

49 | /* 

29 ' ne Put heading Line on top of the box. 

s 

5 IF DCDB->CDBSV_PERCENT 

54 THEN DO; /* Heading values are percents */ 
55 CHAR_ADDR = ADDR(PCENT_STR); /* Use % symbol for heading */ 

2$ CURGR_VAL = 0; /* First yalue is 0 */ 

5 RANGE = 100; /* Range is 100 */ 

58 END; 

59 ELSE IF 6CDB->CDBSV_KUNITS 

60 THEN DO; /* Values in units of 1000 */ 

61 CHAR_ADDR = ADDR(K_STR); /* se K symbol for heading */ 

$¢ CURGR_VAL = DIVIDETDCDB->CDBSL_MIN 1909 1); /* Compute first value */ 
6 RANGE= DIV DE(DCDB=>CDB$L_RANGE,1000,31); © /* ... and range */ 


ELSE D0; /* Heading values are as is */ 
CHAR_ADDR = ADDR(NULL_STR); /* Use no (null) symbol for heading */ 
C VAL = DCDB->CDOBSL_MIN; /* Compute first value */ 


URGR_ 
RANGE = DCDB->CDBSL_RANGE; /* ... and range */ 


GR_INCR = DIVIDE (RANGE,4,31); /* Compute increment between values */ 
MAXGR CURGR_VAL + RANGE; /* ... and max (right-most) value */ 
BP1 = CURGR_VAL; /* Fill in FAOL parms to put heading */ 
BP2 Ss CHAR_ADDR; /* eeeeeeeae * 
CURGR_VAL = CURGR_VAL + GR_INCR; /* Compute next value */ 
BP3 = CURGR VAL; /* eeeeeoeaee «/ 
BP4 = CHAR_ DDR; /* eeeeseeee «/ 
CURGR_VAL = CURGR_VAL + GR_INCR; /* Compute next value */ 
BPS = CURGR VAL; /* eeeeseoeeae «/ 
BP6 S CHAR_ADDR; eeeeeoeaeee «/ 
CURGR_VAL = CURGR_VAL + GR_INCR; /* Compute next value */ 


BP7 = CURGR_VAL; PS sscacess OE 

¢ BP8 = CHAR_ DDR; /* eeeeoeeee / 

8 CURGR_VAL = CURGR_VAL + GR_INCR; /* Compute next value */ 
584 IF DCB” >CDaSV PERCENT : DUDB->COBSV_KUNITS /* If umits symbol is printable, */ 
585 THEN BP9 = 0; /* ... then do not advance one space */ 
586 ELSE BPO = 1; /* ... else advance a space, so last value */ 
587 ; /* ... is on right edge of box */ 
14 BP10 = MAXGR_VAL; /* Next parm is the last value */ 
233 BP11 = CHAR_ADDR; /* ... addr of units symbol */ 


Ser ER neue ST Ip: 
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' /* 
i ae, Setup to call DISPLAY_PUT for the heading Line 
PUT LEN = BARHEAD STR.L; /* Length of put */ 
FAOC_REQUESTED = YES; /* Request arun thru SFAOL */ 
OUTP~ ~REQUESTED NO; /* Not ready to output it yet */ 
CALL”= DISPLAY _PUT(bPUT _FLAGS,PUT_LEN,BARHEAD_STR.S, BARHEAD” PARMS); 
H /* Hand heading over to SCRPKG */ 
na IF STATUS = NOT_SUCCESSFUL THEN RETURN(CALL); /* Check status */ 
ey Now put the smaller box with the statistic heading for Standard classes 
IF DCDB->CDBSV_ STD /* If standard class, */ 
STATHEAD PARMS.A = ADDR(STAT_HEAD(DCDB->CDB$B_ST)); /* Get addr of correct string */ 
i. . mY ATHEAD_STR.L; /* Length of put */ 
FA oc’ REQUESTED = YES; /* Request a eyn thru SFAOL */ 


OUTP “REQUESTED = OUTPUT /* utpu ut it if caller requested */ 

CALL™= DISPLAY_PUT (DPUT “FL aés, PUT_LEN, STATHEAD_STR.S, STATHEA _PARMS) ; 

/* Hand” teristic heading over to SCRPKG */ 
IF STATUS = NOT_SUCCESSFUL THEN RETURN(CALL); ie Check status */ 


/* End of begin-end group */ 
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TE REQUEST 


ELSE os 
thet SYSTEM_SCREEN /* 
De bB->cpBs SA_FAOCTR = ADDR(SYS_FAO_STR); /* 
DCDB->CDBSL-FAOCTR = sys FAO_STR_CEN; /* 
IF BSS -RAN ANGE (1.4) >= 10000 . 

SBP1 = DIVIDE (BSS$_RANGE(14),1000,31); /* 
SBP2 = ADDR(K_STRJ; /* 
END; 
ELSE DO; 
SBP1 = BSS_RANGE(14); /* 
SBP2 = ADDR(NULL_STR); /* 
END; 
IF BSS_RANGE(15) >= 10000 /* 
THEN” DO; 
SBP3 = DIVIDE(BSS_RANGE(15),1000,31); /* 
SBP4 = ADDR(K_STRJ; /* 
END; 
ELSE DO; 
SBP3 = BSS_RANGE(15);: /* 
SBP4 = ADDR(NULL_STR); /* 
END; 

T LEN = SYS BOX. STR_LEN; /* 
FAOL REQUESTED = VES; /* 
OUTP-REQUESTED = /* 
CALL™= DISPLAY PUT CoPUT FLAGS ,PUT_LEN,SYS_BOX_STR,SYS_BOX 
IF STATUS = NOT_SUCCESSFUL THEN RETURN(CACL);~ ]* 

T LEN = SYS TEXT STR_LEN; / 
FAOL _REQUESTED = YES: /* 
QUTP_REQUESTED = OUTPUT_IND; /* 
CALL™= DISPLAY PUT {DPUT” FLAGS ,PUT_LEN,SYS_TEXT_STR,); /* 
IF STATUS = = NOT_SUCCESSFUL fae RETURN(CACL); / 
ELSE /* 

UT_LEN = MF_STATHEAD_STR.L; /* 
FAOL_REQUESTED = YES; /* 
OUTPREQUESTED = OUTPUT_I /* 
CALL™= DISPLAY_PUT (DPUT -t this PUT_LEN,MF STATHEAD. STR.S,); 
IF STATUS = NOT_SUCCESSFUL THEN RETURN(CALL js 

RETURN(NORMAL) ; /* 


AX-11 PL/I X2,1-273 e 4 
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At this point, either m. f.summ or spec. SYSTEM sc 
If special SYSTEM screen, 4 


Get a pre-built FAO control string */ 
«.- and its length * 
If range of Free List bar is large, */ 


then get the pumser of thousands */ 
and use a ‘‘k"' 


else mg the raw number */ 
and no «/ 


If range of Modified List bar is large, */ 


then get the paper of thousands */ 
and use a ‘k"’ 


else use the raw number */ 
and no ‘kK’ */ 


Length of put */ 

Request a + 9 gh SFAOL */ 

Don't output «/ 

_PARMS); /* land. boxes over to SCRPKG */ 
“Check status */ 


Length of put */ 

Request a run thru SFAOL */ 

Output it if caller requested */ 

Output text and display entire screen */ 


* Check status */ 


Multi-file summary */ 


Length of put */ 
Request a run thru SFAOL */ 
Output it if caller requested * 
/* Piand statistic heading over ‘ts SCRPKG */ 
Check status */ 


Return to caller */ 


— | 
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v04-000 ety TEES ISKSVMSMASTER: CMONTORSRCIREQUEST.PLI.% (60) Vv04- 
7 PUT_BOX: Procedure Returns(fixed binary(31)); 97 
766? ’ : | 97 
7668 | /* 97 
7669 | [eee | 97 
7670 } /* a 
rer) ' cs FUNCTIONAL DESCRIPTION: 35 

} & 
7673 |} /* PUT_BOX 4 
7674 | /* y 
7675 } /* Called by DISP_TEMPLATE to put the bar graph box to the SCRPKG. 9 
rer ' Actual display output is not performed. 
7678 | /* INPUTS: 
7679 | /* 
7680 ; /* None 
7681 : /* 
7682 | /* OUTPUTS: 
7683 | /* 
7684 ; /e None 
7685 ! /* 
7686 } /* ROUTINE VALUE: 
7687 | /* 
7688 : /* SS$_NORMAL, or failing MONITOR status code. 
7689 | / 
7690 | /t-- 
7691 } /*/ 
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eee 


/* 
/* | emwoeoone Se Be Be BeBe nr eee wnwr ere = a a a a a a I a ee Sowa mae owe + 
/* ‘ ! 
/* ! LOCAL STORAGE : 
/* ! ' 
/* ee esSeeeeooeeeoeeese Te wnat wre nre resem narra nner nmr o manner nro e ee oe eee one eee + 
// 
Declare 
FIRST_DATA_LINE FIXED BINARY(31) GLOBALREF VALUE, /* Line number of first data Line on screen */ 
LAST_BATA_CINE FIXED BINARY(31) GLOBALREF VALUE, /* Line number of last data Line on screen */ 
VTDATALINES FIXED BINARY(31) GLOBALREF VALUE, /* Total data lines on screen */ 
CURSOR_STR CHAR(2) GLOBALREF /* Cursor control escape sequence */ 
2 HORIZ_ STR CHAR (42) GLOBALREF , /* Horizontal portion of bar graph box */ 
2 CURR FIXED BINARY(15), /* Current row counter */ 
§ CURCOL FIXED BINARY(15); /* Current column counter */ 
§ eclare 
1 VERT_LINE (5S*VTDATALINES) /* Escape string to make vertical Lines for box */ 
2 § CURSOR HAR (2) /* Cursor control esc sequence */ 
2 R FIXED BINARY(7), /* Row byte */ 
2 2 COL FIXED BINARY(7), /* Column byte */ 
§ 2 VERT_CHAR CHAR(1); /* Vertical bar character */ 
2 Declare : : 
2 1 HORIZ_LINE (2), /* Escape string to make horiz'l Lines for box */ 
2 2 CURSOR CHAR (2) /* Cursor control esc sequence */ 
2 2 ROW FIXED BINARY(7), /* Row byte */ 
2 2 COL FIXED BINARY(7), /* Column by 
é 2 TOP_BOT CHAR(42); 


te */ 
/* Horiz Line appearing at top & bot of box */ 


; 


C 
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77? } /* 
77 H /* Create and send to the SCRPKG the horizontal (top 
7726 : /* and bottom) Lines of the bar graph box. 
a H /*/ 
77 HORIZ_LINE.CURSOR(1) = CURSO /* Move in cursor control sequence */ 
77 HORIZ_LINE.ROW(1) = pARST. BAIR Tie - 1; /* Move in row number of top Line of box */ 
77 HORIZ LINE.COL(1) = 38; /* Move in column number */ 
77 TOP_BOT(1) = HORIZ_STR: /* Move in the top Line Ps 98¢ 
77 HORTZ_LINE.CURSOR(2) = CURSOR /* Move in cursor control sequence */ 105; 
77 HORIZ“LINE.ROW(2) = bast. DATA_ -P Ines; /* Move in row number of bot Line Ps box */ 105i 
77 HORIZ“LINE.COL(2) = 38; /* Move in column number */ 105; 
77 TOP _BOT(2) = HORIZ_STR: /* Move in the bottom Line */ 105; 
77 FAOC_REQUESTED = NO; /* FAOL not involved s/ 105% 
77 OUTP-REQUESTED = NO; /* ... don't output it 105% 
77 CALL~= DISPLAY_PUT(DPUT_FLAGS,46*2,HORIZ_LINE,); /* Put Roriaentel sined” to *SCRPKG */ 105% 
£740 IF STATUS = NOT. SUCCESSFUL L THEN RETURN KRALL); /* Check status */ 183! 
— /* 105é 
BE . /* Now create and send to the SCRPKG the vertical 105% 
; 2 /* Lines of the bar graph box. 105f 
A eo. 18 
2 1 = 0; /* Initialize loop control */ 105 
¢ DO CURROW = FIRST -DATA LINE TO LAST_DATA_LINE; /* Loop once for each data Line in graph */ 105% 
DO CURCOL = 38 TO 78 BY 10; /* Loop once for each vert char in a Line */ 105 
4 IF CURCOL = 78 THEN CURCOL = CURCOL + 1; /* Push right-most bar over 1 */ 105 
4 l= /* Update index into VERT_LINE vector */ 105$ 
4 VERT_LINE- ‘CURSOR(I) = a YRSOR. STR; /* Move in cursor control sequence */ 1055 
4 VERT_LINE.ROW(I) = CURROW; /* Move in row number */ 105$ 
4 VERT_LINE.COL(I) = CU RCOL: /* Move in column numbe 7 «/ 105$ 
. VERT. “CHAR(I) = "i": /* Move in the vertical bar char */ ye 
z EN ND: 106( 
2 CALL = DISPLAY PUT(DPUT_FLAGS,5*5*VTDATALINES,VERT_LINE,); /* Put vertical Lines to SCRPKG */ 106( 
$ IF STATUS = NOT_SUCCESSFUL THEN RETURN(CALL); | /*” Check Status */ 130 
2 RETURN(NORMAL) ; /* Return to caller */ 106( 
2 END PUT_BOX; 106( 
1 106( 
1 END DISP_TEMPLATE; 106( 
| 
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77 COLLECTION_END: Procedure Returns(fixed binary(31)); /* Indicate collection ended */ 


1 

7 /* 
7769 ; 1 /t++ 
7770; #1 /* 
7771; #1 /* FUNCTIONAL DESCRIPTION: 
7772; «1 /* 
aa, : : An COLLECTION_END | 

; © 
446 ' } Ae Called by CTRLC, CTRLZ, COLLECTION_EVENT or CLASS_COLLECT whenever it 
vert a: = /* when the user strikes CTRL-C or CTRL-Z, an input (playback) file has 
re : - reached end-of-file, or a requested ending time has occurred. 
7780: 1 /* INPUTS: 
7781 ; #1 /* 
7782 : 1 /* None 
7783: 1 /* 
7784; 1 /* OUTPUTS: 
7785 : 1 /* 
7786 : 1 /* None 
7787 ; «#1 /* 
7788 : 1 /* IMPLICIT OUTPUTS: 
7789: 1 /* ; 
7790 : 1 /* COLLENDED bit is set. 
7791 ; #1 * 
7792 : #1 /* ROUTINE VALUE: 
7793: #1 /* 
779%: 1 /* SS$_NORMAL 
7795 } 1 /* 
7796: 1 /* SIDE EFFECTS: 
7797: «1 /* : 
7798 : #1 /* ALL timers are canceled, a SWAKE is issued, and the display and 
7799; «1 /* “between screens'’ event flags are set. Also, 1/0 is canceled on the 
7800 : 1 /* channel for CTRL-C and CTRL-Z to disable reception of AST's, and 
7801 ' : /* on the channel for CTRL-W. 

; % 

; 4 

1 


* is determined that data collection has reached an end. This can occur 


—————_—— 
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7806} 1 /* 

rene ; 1 /* ! oP ee SS ee ee et te ere een ew ewe oa CK SSK EBB DB en Sem HE BoE awenteoeB Emon ese nen oawe + 

F509 i ie LOCAL STORAGE 

H ® . . 

7810; 1 /* ! ! 

781 1 1 /* ! mee ee em me em ee Se er ee mem ee eo ee eS eS SB ew SE BR Be ee Sm RS eS SSO RE SE SE SS + | 
re ' : /*/ 
7814 1 ZINCLUDE SYSSCANTIM; /* SCANTIM system service */ 

7821 1 ZINCLUDE SYSSSETEF; /* $SETEF system service x 

7827 1 ZINCLUDE SYSSCANCEL; /* SCANCEL Syoten service 

ro25 : ZINCLUDE MONDEF ; /* Monitor utility eriere definitions */ 

860 1 Declar 

860 1 D1SP, EV_FLAG FIXED BINARY(31) GLOBALREF VALUE, /* Display event flag */ 

8604 1 TL_EV_FLAG FIXED BINARY(31) GLOBALREF VALUE, /* "Between screens’ display event flag */ 

8605 1 ite EV-FLAG FIXED BINARY(31) GLOBALREF VALUE, /* Hibernation event flag */ 

8606 1 a CENDED BIT(1) GLOBALREF, /* YES => collection has ended */ 

8607 1 POINTER GLOBALREF, /* Pointer to MRB (Monitor Request Block) */ 

8608 1 ACAP POINTER GLOBALREF , /* Pointer to MCA (Monitor Communication Area) */ 

8609 1 CoRLCT CHAN FIXED BINARY(31) GLOBALREF, /* Channel number for CTRL-C and CTRL-Z */ 

8610 1 CTRLW_ CHAN FIXED BINARY(31) GLOBALREF, /* Channel number for CTRL<-W */ 

8611 1 NORMAL FIXED BINARY(31) GLOBALREF, /* MONITOR normal status value */ , 

aol¢ ; CALL FIXED BINARY(31); /* Holds function value (return status) of called routines * 
8614 1 CALL = SYSSCANTIM(,); /* Cancel outstanding timer requests */ 

8615 1 CALL = SYSSSETEF (HIB EV_FLAG); /* Wake up if wtvorast tng for future request */ 

8616 1 CALL = SYSSSETEF(DISP_ EV FLAG): /* Force final display 

8617 1 CALL = SYSSSETEF (BET_EV_FLAG) /* Force final screen ‘of aul tivscreen display */ 

8618 1 COLLENDED = Me f /* Indicate collection ended * 

8619 1 MRBPTR->MRBS$Q_ENDING = MCAPTR=>MCAS$Q_LASTCOLL /* Establish Last collection  & as ending */ 

8620 1 IF CTRLCZ_CHAN “= 0 THEN CALL = SYSSTANCEL (CTALCZ. CHAN); /* aeas CTRL=C and CTRL-Z handlers */ 

rap 1 LCZ_CHAN = 0; * ... and indicate so */ 

86 § 1 IF ciety CHAN *s 0 THEN CALL = SYSSCANCEL(CTRLW_CHAN); /* Cancel CTRL-W handler */ 

862 1 CTRLW_CHAN = /* ... and indicate so */ 

Soee ' RETURR(NORMAL) ; /* Return to caller */ 

86261 END COLLECTION_END; 

8627 
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8 , CTRLC: Procedure Returns(fixed binary(31)); /* CTRL=C handler */ 
sf 3 /* 
‘2 @ /t++ 
§ a /* | 
se H : ° FUNCTIONAL DESCRIPTION: 
H * | 
8635 ' : . CTRLC | 
Be a /* AST Routine entered whenever the user strikes CTRL-C. 
: > /* The COLLECTION_END routine is called to begin termination 
nm /* of the Monitor request. Also, the CTRLCZ_HIT bit is set, | 
QO: 1 /* and the PROMPT bit is set to indicate a MONITOR> prompt 
8641 ; 1 /* is desired. 
eeeg . ¥ /* 
8645; 1 /* INPUTS: 
8644 ; 1 /* 
8645 | 1 /* None 
Boe8 ; 4 /* 
8647 | 1 /* QUTPUTS: 
8648 ; 1 /* 
8649 : 1 /* None 
8650 ; 1 /* 
8651; 1 /* ROUTINE VALUE: 
$926 . 2 /* 
8655: 1 /* SS$_NORMAL 
8654 ; 1 /* 
8655 ; 1 /t-- 
5638 ; 1 /«/ 
865 1 
5038 ; 1 /* 
59 . 1 /t ' Beer r een ewe n ene meer emer emer man we ere nerscnr oor er eer eor enw ewww enn enn enw wenn een ewan ne eeeceeceon + 
8660 : 1 /* ! ! 
8661 : 1 /* ! LOCAL STORAGE ! 
ree) : 1 /* ‘ ! 
866 H 1 /* ' See ees reat ee erm moe e cei ewer seme sem meses esos eee ewer meow ewoeees os + 
soe ; 4 // 
5 1 
2066 1 Declare : 
866 1 LLECTION_END ENTRY, /* Routine to indicate end of collection */ 
8668 1 CTRLCZ_HIT BIT(1) ALIGNED GLOBALREF, /* YES => CTRL-C or CTRL-Z has been hit */ 
8669 1 PROMPT BIT(1) Tmaaett GLOBALREF /* YES => prompt user for another subcommand */ 
geri ; NORMAL FIXED BINARY(31) GLOBALREF; /* MONITOR normal status value */ 
% 1 CTRLCZ_HIT = YES; /* Indicate CTRL-C has been hit */ 
867 1 PROMPT = YES; /* Indicate user wants MONITOR> prompt */ 
8674 1 CALL COLLECTION_END(); /* Indicate end of collection */ 
ge7? : RE TURN(NORMAL) ; /* Return to caller */ 
B67? 1 END CTRLC; 
78 
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CTRLZ: Procedure Returns(fixed binary(31)); /* CTRL-Z handler */ 

/* 

{eee 

/* 

. FUNCTIONAL DESCRIPTION: 

on CTRLZ 
® 

/* AST Routine entered whenever the user strikes CTRL-Z. 

/* The COLLECTION_END routine is called to be an ermination 

/* of the Ronitor request. Also, the CTRLCZ_H 

/* ao the PROMPT bit is set to 0 to haieate : PONITORS. a 

. is NOT Fame a 

/* INPUTS: 

/* 

/* None 

/* 

/* OUTPUTS: 

/* 

/* None 

/* 

~ ROUTINE VALUE: 

/* SS$_NORMAL 

/* 

[t-- 

// 

/t 

Jt | ewmooweeoeeeeeeeeeeeeeeeecoesesesessoesesoeeeoseeseeseecesoeseseeeoseeeseesce= + 

/* ' ! 

/* ! LOCAL STORAGE ! 

/* ! ! 

/t leeeeeeeeeoeooeeeeoesoesoeoesoeoeseeeeeeeeeeessoeeesoeeeeeooesoeeoeooesoeeooesooeseseoa + 

// 

Declar 
COLLECTION END ENTRY, /* Routine to indicate end of collection */ 
CORAAND FICE FILE “ /* File reference for the execute command file */ 
CTRLZ_HIT BIT(1) ALIG e /* YES => CTRL-Z has been hit */ 
ETAL? HIT BIT(1) ALIGN e /* YES => CTRL-C or CTRL-Z has ee hit */ 
PROMPT BIT(1) ALI /* YES => prompt user for another subcommand * 
AL BIT(1) ALI /* YES => read another execute command file oy sn «/ 

FIXED BINAR f. /* MONITOR normal status value */ 

CTRLZ_HIT = YES; /* Indicate CTRL-Z has been hit */ 

CALC HIT = YES; /* Indicate CTRL-2 has been hit */ 
PROMPT” = NO; /* Indicate user does NOT want a MONITOR> prompt */ 
F (EXECUTE = YES) He 90; /* If there is an execute command file open, */ 

CLOSE FILE (COMMAND _F /* close the execute command file and */ 
oo = NO; /* indicate no more execute subcommands to be done. */ 
CALL COLLECTION_END(); /* Indicate end of collection */ 
RETURN(NORMAL) ;~ /* Return to caller */ 
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735 1 
e736 1 END CTRLZ; 
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r ’ CTRLW: Procedure Returns(fixed binary(31)); /* CTRL“-W (display screen refresh) handler */ 
740; 1 /* 
741; #1 /%++ 
742: 1 /* 
745; 1 /* FUNCTIONAL DESCRIPTION: 
744; 1 /* 
745}; 1 /* CTRLW 
746: #1 /* 
747 3 1 /* AST routine, entered whenever the user strikes CTRL<W. 
748; 1 /* Sets the Refresh Event Flag to indicate a new display 
Hs ' : . event (including template) is desired. 
731 a /* INPUTS: 
7 ¢ ; 1 /* 
7553: 1 /* None 
754: 1 /* 
755 i 1 /* OUTPUTS: 
756: 1 /* 
ei /* None 
758; 1 /* 
759: 1 /* ROUTINE VALUE: 
8760 : 1 /* 
8761 . § /* SS$_NORMAL 
166 » 2 /* 
8763: 1 /t-- 
8764: 1 // 
8765 1 
766 : 1 /* 
767 | 1 / hb leweeeeeeeseoooeeessoesoessoooeoeeoesoeeoeeeoeseeoeoeooeesoeeoescoeooeooeeeooosoeooeoeece + 
768 : 1 /* ! ! 
769 ; 1 /* ! LOCAL STORAGE ! 
770: 1 /* ! ! 
8771 ; 1 /t ' eee ee eee toe eS Se eee noe nn ee eee ween none ewe Bee eee eee Eco meaeneae es ene we ee ee + 
8772 ; 1 // 
877 1 
arr : ZINCLUDE SYSSSETEF; /* $SETEF system service */ 
ere 1 Declare 
78 1 REFR_EV_FLAG FIXED BINARY(31) GLOBALREF VALUE, /* Refresh event flag */ 
878 1 NORMAL FIXED BINARY(31) GLOBALREF, /* MONITOR normal status value */ 
a7ee ; CALL FIXED BINARY(31); /* Holds function value (return status) of called routines * 
7 1 CALL = M+ iat —EV_FLAG); /* Cause refresh display event to occur */ 
14 ; RE TURN(NORMAL ) /* Return to caller */ 
789 1 END CTRLW; 
90 
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791 WRITE_HEADER: Procedure Returns(fixed binary(31)); /* Write recording file header record */ 

Ne : } /* ... and system information record */ 

794 3 4 /* 

795; 1 / eee 

138 . % /* 

797; #1 /* FUNCTIONAL DESCRIPTION: 

798: 1 /* 
1804 H : a WRITE_HEADER 

; ® 
o1;: 1 /* Called by the CLASS_COLLECT routine to write the first 2 
02: 1 /* records of the recording file (File Header Record and 

8803 : 1 /* System Information Record). Called once per Monitor 

8804 : 1 /* request before any class records are written. 

8805 : 1 /* 
88 : 1 /* INPUTS: 
8807 ; 1 /* 
8808 : 1 /* None 
8809 : 1 /* 
8810 : 1 /* OUTPUTS: 
8811; 1 /* 
oai§ . 2 /* None 
88135: 1 /t 
8814; 1 /* ROUTINE VALUE: 
8815 ; 1 /* 
Baie a @ /* SS$_NORMAL, or failing MONITOR status code. 
8817 ; 1 /* 
8818 | 1 /t-- 
8819 ; 1 /*/ 
8820 1 
ae Ew /* 

8 § H 1 Jt lewseeeeeceen eeemeeweereow ew emo eee ewww wr meme wmo woe mower eeew em eme ee mo meme mem wm eww moe eo aoe ow ooo] a 
Mts .°% /* ' ' 
8824: 1 /* ! LOCAL STORAGE : 
8825 : 1 /* ! ' 
8826 ; 1 /* | eeeeceeeeeeeeeeecn We BET See eats ee onresrwe en mon wmreowa wes en ener enn ener aenrocaewe ras anwrauneawnscan + 
LD 
3344 \ ZINCLUDE MONDEF ; /* Monitor utility structure definitions */ 
9598 1 Declare ; 
9599 : WRITE_RECORD ENTRY (ANY) RETURNS(FIXED BINARY(31)); /* Routine to write a rec to the recording file */ 
3601 1 Declare 
a's) 1 ALL FIXED BINARY(31), /* Holds function value (return status) of called ro 
960 1 STATUS BIT(1) BASED(ADDR(CALL)) /* Low-order status bit for called routines */ 
9604 «1 NORMAL FIXED BINARY(31) GLOBALREF, 3 /* MONITOR normal status value */ 

9605 i SPTR POINTER GLOBALREF, /* Pointer to SYI (System Information Area) */ 
4's 1 MRBPTR POINTER GLOBALREF /* Pointer fo MRB (Monitor Request Block) */ 
960 1 ¥ POINTER DEF INED(MRBPTR), /* Synonym for MRBPTR */ 

9608 1 H POINTER /* Pointer to record file header */ 

9609 1 HEADER_TYPE FIXED BINARY(15) GLOBALREF, /* Type for MONITOR recording file header */ 
9610 1 ST_LEVEL_CUR CHAR(8) GLOBALREF, /* Current MONITOR recording file structure level */ 
9611 1 ST LEVEL PB CHAR(8) GLOBALREF /* MONITOR recording file structure level from input 
9616 1 REVLEVELS CHAR ( 38) GLOBALREF , /* Revision levels used by classes for this request 
961 1 REVOCLSBITS 6811(128) GLOBALREF, /* Bits for classes recorded at rev level 0 */ 
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CHAR(COMM_D.L) BASED(COMM_D.A), 


piace BINARY(31), 
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/* Usersspecitied conment string */ 
/* Record geer ptor */ 
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/* Address */ 
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ALLOCATE FILE_HDR SET (H); 


H=>MNR_HDRSB_TYPE = UNSPEC(HEADER_TYPE) ; 
H->MNR_HDRSV_FILLER = ) 
H=>MNR_HDRS$Q_BEGINNING = M=>MRBSQ_BEGINNING; 
H=>MNR_HDRSQ_ENDING = '0'B; 
nd Tm TORS INTERVAL = N->MRBSL INTERVAL; 
H->MNR_HDR$O_REV SLSGITS = REVOCCSBITS; 
H->MNR_HORSL_RECCT = 0; 
IF M->ARBSV_PLAYBACK 
THEN H=SMNR_HDRST_LEVEL = ST_LEVEL_ 
ELSE H=>MNR_HDRST"LEVEL = ST-LEVEL_ 


IF M->MRBSA_COMMENT = NULL () 
THEN DO; 


H=>MNR_HDRST_COMMENT = ' '; 
SPER OREM COLER = 0; 
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ELSE DO; 

H=->MNR_HDRST_COMMENT = COMMENT; 
H=>MNR-HDRS$WCOMLEN = C 
IF H=>MNR_HDRS$W_COMLEN 


END; 
H=>MNR_HDRSO_CLASSBITS = M->MRBS$O_CLASSBITS; 
H->MNR_HDRST_REVLEVELS = REVLEVELS; 
i /* 
H /* Write file header record 
i /*/ 


REC_DESCR.L = MNR_HDRSK_SIZE; 
REC~DESCR.A = H; 
CALC = WRITE_RECORD(REC_DESCR); 
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FREE H=>F ILE~HDR;: 
9660 IF STATUS = ROT_SUCCESSFUL THEN RETURN(CALL); 
9662 je 

9665 : /* Write system information record 

9664 } /*/ 

9665 

9666 REC_DESCR.L = MNR_SYISK_SIZE; 

9667 REC-DESCR.A = SPTR; 

9668 CALC = WRITE_RECORD(REC_DESCR); 

9669 IF STATUS = ROT_SUCCESSFUL THEN RETURN(CALL); 
9671 RETURN(NORMAL) ; 

9678 END WRITE_HEADER; 


/* 
/* 


OMM_D.L; /* a 
’ > MAR_HORSK_MAXCOMLEN /* 
THEN RA->MNR_HDRSW_COMLEN”= MNR_HDRSK_MAXCOMLEN; /* ... max comment Length */ 


/* 
/* 
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Allocate file header space */ 


Load header type code */ 
Clear | unused tlags «/ 
boad beginning heey / 
Indicate no ending time yet */ 
Load interval value */ 
Load bits for classes recorded at rev level 0 */ 
Indicate no records yet */ 
If a playback request, */ 
then load playback recording file structure level */ 
else load current recording file structure level */ 


If no comment string specified, */ 


Load a string of blanks */ 
«ee and a length of 0 */ 


Comment string is specified */ 

Load user's comment string */ 

s+- and its actual length */ : 

Minimize actual length with ... */ 


Load class bit string */ 
Load revision levels used by this request */ 


Load up Length */ 

e+. and address of record for write */ 
Write the file header record */ 

Free file header space */ 

Check WRITE_RECORD call */ 


Load up length */ 

+. and address of record for write */ 
Write the system info record * 

Check WRITE_RECORD call */ 


Return to caller */ 
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EXECUTE _REQUEST 16*SEP=1984 02:15:54 | VAX=11 PL/I _X2.1-273 SHO! 
v04-000 3- SEE ope THEE ISKSVMSMASTER: LMONTOR. SRCIREQUEST.PLI; rr i (3) v04 
| 9674 WRITE_RECORD: frocedure (RECORD_DESC) | 

9675 Returns(fixed binary(31)); 

9676 1 

9677 | 1 /* 

9678 | 1 [e+e 

9679 : 1 /* 

9680 |: 1 /* FUNCTIONAL DESCRIPTION: 

9681 : 1 /* 

9682 |: 1 /* WRITE_RECORD 

96835 : 1 /* 

eens fs /* Called by the WRITE_HEADER and CLASS_COLLECT routines to 

9685 : 1 /* write a sing) e record to the recording file. If a flush 

9686 : 1 /* has been indicated, it is performed. 

9687 ; 1 /* 

9688 : 1 /* INPUTS: 

9689 : 1 /* 

+24 ‘ \ i. Address of a string descriptor describing the record to be written. 

oop H : . IMPLICIT INPUTS: 

H e 

9694; 1 /* FLUSH_IND == Any indicator. If set, perform an Ponies flush operation 

9695 : 1 /* checkpoint’ the recording file 

9696 |: 1 /* 

9697 | 1 /* QUTPUTS: 

9698 : 1 /* 

9699 : i /* None 

9700 : 1 /* 

9701 : 1 /* IMPLICIT OUTPUTS: 

9702 : 1 /* 

9703: 1 /* RECCT incremented by 1. 

9704: 1 /* 

9705 : 1 /* ROUTINE VALUE: 

9706 | 1 /* 

9707 : 1 /* SS$_NORMAL 

9708 | 1 /* 

9709 : 1 /t-- 

9710: 1 /*/ 

9711 1 


} 
13 | 
EXECUTE_REQUEST 1p-s8-1 4 02:15: VAX=11 PL/I X2.1-273 Page 90 _ | SHO 
v04- mets Pi 98:13:34 ISKSVMSMASTER: CMONTOR, SRCJREQUEST.PLIc? FY) | v04 
arie af /* 
971 ; 1 /* ' Swe eee Se eee ee eee eenaneanoeaneaea SB Oot BF ewe crane soe semen ernrnean weer ee we eer weer ee we ew = erewma hy | 
wit ef | LOCAL STORAGE | | 
: * ' : 
arte =. /* ‘ : 
971 } 1 /* | eeeeeeoceeeeoeeoocea eeeeeeoeoeooeoecoeoons ee ieee ne ee er eno + | 
9718 | 1 /*/ 
9719 1 63 
360 1 Declare 
9721 1 NORMAL FIXED pear ial? GLOBALREF, /* MONITOR normal status value */ 
975$ 1 RECCT FIXED BINARY(31) GLOBALREF, /* Count of records written to record file */ 
4 : FLUSH_IND BIT(1) ALIGNED GLOBALREF; /* Flush indicator; YES => perform FLUSH */ 
3135 1 Declare 
9726 1 1 RECORD DESC, /* Record descriptor */ 
9727 1 RECORD_LEN FIXED BINARY(31), /* Record Length */ 
9728 1 RECORD_PTR POINTER /* Record pointer */ 
He : RECORD_DATA CHAR (RECORD_LEN) BASED(RECORD_PTR); /* Record data */ 
9731 1 Declare 
ee : RECORD_FILE FILE RECORD; /* Monitor Record File */ 
9734 1 WRITE FILECRECORD_FILE) FROM(RECORD_DATA); /* Write a record */ 
Oras : RECCT = RECCT + 1; /* Count it */ 
9737 1 IF FLUSH_IND /* If flush indicated for this write, */ 
9738 1 THEN DO; 
9739 2 CALL FLUSH(RECORD_FILE); /* Flush record file to checkpoint coilected data */ 
9740 2 FLUSH_IND = NO; /* Indicate flush not required */ 63 
ares ¢ END; 
974 1 RETURN(NORMAL ) ; /* Return */ 
9744 1 END WRITE_RECORD; 
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READ_INPUT: Procedure (SKIP_IND); 


VAX=11 PL/I X2. 1 


/* Routine to read a record from the /INPUT file */ 


Jeet 
/* 
he FUNCTIONAL DESCRIPTION: 
ae READ_INPUT 
* 
/* This routine reads the /INPUT (playback) file until a 
/* record of the desired type is found, or until end-of-file 
. is reached. The following categories of record types exist: 
/* Types 8 - 127: Class record 
/* Types \¢ - 191: DIGITAL control record 
a Types 192 = 255: Customer control record 
/* A class record is pure desired. A customer control record 
/* is never desired. A DIGITAL control record can be desired 
or not, depending on the input parameter SKIP_IND. 
® 
. INPUTS: 
/* SKIP_IND == a binary longword value indicating whether or not 
/* to ee past DIGITAL control records. If 
/* SKIP_IND is 0, DIGITAL control records 
/* are desired, and will not be skipped. 
oe Otherwise, they are skipped. 
® 
i IMPLICIT INPUTS: 
& 
/* MCAPTR -- Pointer to Monitor Communication Area 
se INPUT_CPTR == Pointer to /INPUT file buffer 
® 
/* QUTPUTS: 
/* 
/* None 
/t 
. IMPLICIT OUTPUTS: 
® 
/* MCASL_INPUT_LEN is updated to indicate the length of the record 
e currently in the input buffer. 
® 
e MCASV_EOF is set if end-of-file is reached. 
® 
in ROUTINE VALUE: 
/* None 
/* 
i. SIDE EFFECTS: 
® 
oe /INPUT file (INPUT_FILE) is advanced to the desired record. 
® 
/ 
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PLI/LIS=LIS$:REQUEST/OBJ=0B8J$:REQUEST MSRC$:REQUEST+LIB$:MONLIB/LIB 


/* 
/* | ewwne See eSB ene wren eee wen es ee een EOD ee me KB wee mM OB es 
/* \ 
/* \ LOCAL STORAGE 
/* ' 
/* |l eseeeeeeseeeeeooseeeeescecea Se Ewen weno nrarernwrenas menor ae 
/*/ 
XINCLUDE MONDEF ; 
Declare 
MAX_REC_SIZE FIXED BINARY(31) GLOBALREF VALUE, 
MCAPTR POINTER GLOBALREF 
MC POINTER DEFINED(MCAPTR), 
INPUT_CPTR POINTER GLOBALREF 
INPUT_DATA CHAR(MAX_REC_SIZES VARYING BASED(INPUT_CPTR); 
Declare 
SKIP_IND FIXED BINARY(31), 
DESIRED TYPE BIT(1) ALIGNED, 
1 RECORB_TYPE BASED (MC=>MCASA_INPUT_PTR), 
2 FILLER BIT(6), 
BIT6 BIT(1), 
2 BIT7 BIT(1); 
Declare 
INPUT_FILE FILE RECORD INPUT; 


DESIRED TYPE = NO; 
DO WHILE (* MC->MCASV_EOF & “ DESIRED_TYPE); 
Te FILECINPUT_FILE) INTOCINPUT_DATA); 


1T7 = NO 

THEN DESIRED_TYPE = YES; 

ELSE IF SKIP-IND = 0 & BIT6 = NO 
bend THEN DESIRED_TYPE = YES; 


MC=>MCASL_INPUT_LEN = LENGTH(INPUT_DATA); 


RETURN; 
END READ_INPUT; 


~ 
= 
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Max record size for PLAYBACK & RECORD files */ 
Pointer to MCA (Monitor Communication Area) */ 
Synonym for MCAPTR */ 

Ptr to input buffer count word */ 


| 
Monitor utility structure definitions */ 
Playback file input buffer */ 


Skip indicator; non-zero => skip DIGITAL control 
YES => desired record type found */ 
Record type field of input record */ 


Monitor Input (Playback) File */ 


Don't have desired type yet */ 
Stop reading when hit EOF or desired rec found */ 
Read a record from the input file */ 
If high-order bit of record type off, */ 

then we found a desired type (class record) */ 
If caller wants a DIGITAL control rec, */ 

and it is present, let him have it */ 


Establish length of input */ 
Return */ 
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